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Il est difficile de taper un programme 
d'une revue sans commettre d'er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntax error in..., Line does not 
exist in...), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu'au "point de vue" du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 
Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l'erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c'est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas vos erreurs. 
La frappe d'un programme de votre 
journal favori (CPC) terminée, vous 
faites "RUN" et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 

— sauvez votre programme en ASCI 1 
grâce à l'instruction : Save "nom 
prog", A. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu'au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu'à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c'est le code qui va vous 
permettre de savoir d'où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de l'écran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 
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respond à ce code. Continuez ainsi 
jusqu'à la fin du listage. 
Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites "RUN" et ô 
miracle ! ça marche. 
Attention, lors de la frappe du pro- 
gramme à traiter, n'omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle. 




« • 

» ANTI - ERREURS « 

I # 

♦ VERSION 2.0 * 

# • 



90 le) CPC il G. NÛE 1987 
1» 

ne 

12e ' >»»»»»»»»»»»»» 

13» '< INITIALISATION > 

14e ' <««««««««««««« 

15» ' 

16* ON ERROR GOTO 1250 

170 MODE 2 

1» DIB B* (23) 

198 FOR 1=9 T0 22:READ G»:6*(I)=6$: 

NEXT 



2» ATTENTION LA LIGNE DE DATA CI- ,-RC 

DESSOUS NE CONTIENT PAS TOUTES LES 

LETTRES DE L ALPHABET I! 1 

21» DATA A.B.C.D,E.F,G,H,J.r-.L.M.N. >AD 

P,Û.R,T.U,V.W,X,r,Z 

220 ANTi-BUG FICHIER 'RE 

230 IF PEEK(HIHBM)=255 THEN 280 ;ZB 

24ti ÛPENOUT "CFC" MA 

250 MEMOfif HIMtM-2 >NX 

260 CLOSEOUT ,-RJ 

270 POKE H1MEM+1.255 >PP 

280 DEFINT B-Z >W 

290 >TB 

300 BORDER 6:INK 0.1:11» 1,16:PEN 1 ,'JN 

: PAPER 

310 M0VE 0.1o:DRAH 650.16 >TK 

320 PRINT TAB(27i "A N T I - E R R >GU 

E U R S ,, :CHR*t24i:" u ersion i.o" 

;CHR$l24i 

330 MÛVE 0.385: DftAtl 650,385 ,'UJ 

340 L0CATE 24,25:PRINT"CPC REVUE DE ,'EV 

S STANDARDS AMSTRAD" 

350 HINDOU 1.80.3.23 >NL 

360 M*="ReaIise car crsqory NÛE" M 

370 F$="" >Xfl 

380 FOR 1=1 TÛ LENtMtj /PU 

390 F*=F*+MIDI(M*.I,1; /PL 

400 L0CATE 70-I.5:PRINT F* ,UL 

410 FOR T=l T0 100 'LO 

420 NEXT 1 , 1 ,'EF 

430 ' >RH 

440 ' t##tHHHHHHHHHHHHHHHHHHHHHHHHW >RJ 

450 >Rli 

460 L0CATE 2,1:PRINT"ENTREZ LE NOM >XT 
DU FICHIER : ": 

470 INPUT "\NF$ ,'FD 

480 IF NF$="" THEN PRINT CHR«(7!:60 /GR 
T0 460 

490 L0CATE 2,3:PRINT"IMPRIMANTE OU >VR 
ECRAN Il/Et?" 

500 R»="":WHILE R*="":R»=UPPER»(INK >NK 
EY»):WEND 

510 IF R$="I" THEN CA=8:PRINT"BRANC >XD 
HEZ-LA..." ELSE 540 

520 PRINTI8.CHR»l27)-, , "";CHR«(20l :>AR 

530 GOTO 560 ,'ZF 

540 IF R$="E" THEN CA=0:G0TD 560 >VÛ 

550 GOTO 500 >ZB 

560 CLS:L0CATE 2,3:PRINT"TANT QUE L >0R 
E LISTAGE N'EST PAS TERMINE" 

570 LOCATE 2,'5:PRINT"NE PAS ARRETER ;>JW 
LE MAGNETOPHONE OU NE" 

580 LOCATE 2,7:PRINT"PAS SORTIR LA >TL 
DISQUETTE" 

590 LOCATE 2,10:PRINT"PRESSEZ UNE T >HH 
0UCHE POUR LA LECTURE" 

600 CALL MB05 >LH 

610 ' >RH 

620 ' <««««««««««« >RJ 



436 '< TRAITEMENT DU FICHIER > >RK 

646 ' »»»»■>»»»»»»» >TA 

650 >TB 

660 OPENIN "!"*NFS >LF 

670 CLS:PRINT"TRAITEMENT EN COURS.. >JR 

68e IF LEN(A*>=255 THEN A»="":LINE >YH 

INPUT#9.B»:GOTO 1140 

690 LINE INPUT#9,6*:A*=B$ ,>UE 

7êe IF CA08 THEN GOSUB 1318 >VF 

716 IF INKEY (441=0 THEN STOP /m 

72» >RK 

73e ■ CALCUL DE LA CLE DE CONTRÛ >TA 

LE 

740 ' >TB 

759 S"0!FLB=0 'MB 

76e FOR 1=1 TO LENiA») >PH 

770 L$=HID$<A$, 1,11 >NU 

78« IF LKHRK34) AND FL6=1 THEN F >PC 

LS=0: BOTO 848 

79e IF L*=CHR$(34) AND FLS=e THEN F >PD 

L6-1:80T0 m 

8ee IF L*=CHR*<32) AND FLBOl THEN >CX 

850 

81» IF L$=CHR»(39) AND FLG=e THEN >CA 

6é 

82e IF FLS=1 THEN 848 >ND 

83» L*=UPPER*(L$,' >MC 

84e A=A+ASC(L»)+I ,'LU 

85e NEXT I >PB 



866 ' 

B7ë CH»=STR*(A) 

886 CH»=RI6HT*(CH»,LEN(CH*)-1I 

89e L=LEN(CH»l:L2=LEN(CH»!/2 

900 A=VAL(LEFT*(CH$,L2i) 

91ë C=INT(A/23) 

92e P=A-(C*23) 

930 C$=G»(P) 

94e A=VAL(RIGHT»<CM.L-L2ij 

95e C=INT(A/23):P=A-(C»23> 

949 C$=C$+6*(P) 

97ê 

96ê FOR 1=1 TO 6 

99e L*=MD*iA*,I,l) 

îeee if L$;."e" or t*>"9" then 1030 

1010 LI$=LI$+Lt 

lë2e NEXT 

1030 VH$="":FOR 1=1 10 LEN(A*i:IF A 

SC(MID*(A*,I.1)K32 THEN VI1$=VM*+" 

" ELSE VM*=VM*+MI D* l A* . 1 , 1 ) 

1040 NEXT I : Bt=VM* 

1050 

i960 IF M<>8 THEN 1070 ELSE 1090 

1070 PRINT LI*;TAB(lê) ";>":C* 

1080 LI*= SOTO 1140 

1090 LI*="":PRINT#CA,LEFT*t6*,55):T 

AB(57) ")";C$ 

liée IF LEN(B»)<55 THEN 116e 

me FG=1 

112e B*=MD*lB»,56,LENlB*i' 



1130 PRINT#CA,LEFT*(Bi.55l '(* 

1140 IF FG=1 AND CAo8 THEN FG=ë:GO >VB 

SUS 13ie:60TO 1150 

1150 60TO 1100 >L6 

1160 IF E0F=-1 THEN CLOSEIN ELSE 60 >HD 

TO 68ê 

1170 IF CA=e THEN CALL MB03:PRINT >RJ 

TAB(5èl CHR*i24);"UNE TOUCHE. .. ";CH 

R«(24):CALL IBB03 

llBé CLS:PRINT"I1AINTENANT RECHARGEZ >JC 

";NFti" ET CORRIGEZ LES LIGNES QUE 

VOUS AVEZ NOTEES. . " 

1190 END >YK 

1200 ' >XF 

1210 ' <«««««««««««« >X6 

1220 < TRAITEMENTS DES ERREURS > >XH 

1230 ' «««««««««<««« >XJ 

1240 >XK 

1250 IF ERR=25 THEN CL5:PRINT CHRtt >¥C 
7)iCHR*i24ls"FICHIER NON ASCII":»; 
$(24):END ELSE CONT 

1240 >YB 

1270 <«««««««««««« >¥C 

1280 < ATTENTE TOUCHE. . . > ,>YD 

1290 * <«««««««««««« >YE 

1300 )XG 

1310 CÛtt=COM+l:IF C0NM9 THEN CALL ,'AF 
&BEtl33:FRINT TABI50) "UNE TOUCHE..." 
:CALL 4BB05:CLS:COM=1 

132» RETURN >EK« 



UN 

NUMERO 

HORS 

SERIE 

GRATUIT 

TOUS 

LES 

DEUX 

MOIS 



4 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles I A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatlbies MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 

□ CPC AMSTRAD 1 1 numéros 220 F 

□ 6 numéros 120 F 

□ AMSTAR 11 numéros 140 F 

□ PCompatibles Magazine 1 1 numéros 200 F 

□ Arcades 1 1 numéros 200 F 



NOM 

Adresse - 



Prénom _ 



Code postal . 



Date- 



Ville 

Signature - 



Je m'abonne à : 



Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 1 1 - 351 70 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 
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TURBO- 
CLAVIER 



Christian KEHREN 



Turbo-Clavier, présenté ici, a pour 
but de vous faciliter la saisie de 
tous vos listings BASIC Amstrad 
464, 664 et 6128. 

Vous tapiez tous les ordres BASIC 
courant lettre par lettre ? Plus 
maintenant .' Après avoir saisi ce 
petit listing, toutes les touches du 
pavé numérique vous donneront les 
fonctions principales. 
De plus, en combinant la touche 
CTRL (contrôle) avec certaines 
lettres, vous obtiendrez tous les 
ordres d'édition et d'entrée-sortie. 
Après son exécution, Turbo-Clavier 
s 'efface de la mémoire, laissant 
toute la place nécessaire à votre 
programme. 

D'après son auteur, son utilitaire a 
été lesté par trois programmeurs 
pendant plus d'un an pour être le 
plus ergonomique possible. 
Espérons que vous le trouverez 
pratique et efficace. 




10 REM * UTILITAIRE CLAVIER * >XP 

20 MODE 2iS=26:P»l:INK l.SilNK 0,P: >LH 

BORDER P 

30 CLS:L0CATE 20,1:PRINT CHR*)24);" ;HF 

QUEL ECRAN VOULEZ-VOUS UTILISER : 
■;CHR* 124): LOCATE 30,6:PRINT CHR$(2 
4)j" [NI ";CHR*(24i;" - NOIR" 
40 LOCATE 30,9:FRINT CHR»(24);" [BI /FW 

";CHR*(24)i" - BLANC":L0CATE 30,12 
:PRINT CHR*(24);" CM ";CHR»(24)i" 
- ORANGE": LOCATE 30,15:PRINT CHRH2 
4);" [V] ";CHR*(24S;" - VERT" 
50 LOCATE 30,tB:PRINT CHR*(24)j" [C >PJ 
] - :CHR$(24);" - AUTRE COULEURS" :L0 
CATE 30,21:PRINT CHR»(24);" [RETURN 
] ";CHR$|24>;" - FIN" 
60 CALL 4BB18:IF INKEY(46)<>-1 THEN >PC 

BORDER 0:INK 0,0: INK 1,23: GOTO 60 

70 IF INKEY(54)<>-1 THEN BORDER 13: >BD 

INK 0,13: INK 1,0: GOTO 60 

80 IF INKEYI5510-1 THEN BORDER 9:1 >ZH 

NK 0,9: INK 1,0:G0T0 60 

90 IF INKEY(34K>-1 THEN BORDER 15: >BH 

INK 0,15:INK l,O:GOT0 60 

11» IF INKEYI62KM THEN 700 >WE 



110 IF INKEYU8) O-l THEN SOUND 1,5 . 
O,20:S0UND 1,150,20:S0UND 1,80,30:6 
OTO 130 

120 PRINT CHR»(7):60T0 20 > 
130 CLS: PRINT" ORDRES PROGRAMMES EN ; 

MAJUSCULE DU MINUSCULE ( M:MAJUSCU 
LE - MIN.: autre 1: ?" 
140 CALL 4..BB1B: IF If*EY(38K>-l THE > 
N CLS:S0T0 420 
150 CLS 

160 KEY 135, "goto " 
170 KEY 136,"90SUD " 
180 KEY 137,"return" 
190 KEY 132, "Tor " 
200 KEY 133, "to " 
210 KEY 134,"next " 
220 KEY 129, "H " 
230 KEY 130,"then " 
240 KEY 131,"else " 
250 KEY 12B,"step " 
260 KEY 138,"chr*l" 
270 KEY 139, "print" 
280 KEr 140,"load"+CHR»iS4) 
290 KEY DEF 58,1. 101,69, 141:KEY 141 

,"edlt ": E 

300 KEY DEF 36,1. 108,76. 142:KEY 142 

,"list ": L 

310 KEY DEF 69, 1,97,65, 143:KEY 143, 

■auto ": A 

320 KEY DEF 62,1,99,67, 144: KEY 144. 

■cl5":C 

330 KEY DEF 50,1, 114, 82,145:KEY 145 

,"run ": R 

340 KEY DEF 35,1,105,73.146:KEY 146 

,"call MC02"+CHR*<13) 

350 KEY DEF 60,1,115,83,147:KEY 147 

,"save"+CHR»(34) 

360 KEY DEF 61,1,100,68,148:KEY 148 

,"cat"*CHRt(13) 

370 KEY DEF 68,1, 149, 208, 228:KE* 14 

9,"locate" 

380 KEY DEF 9.1.&E0.206.207 

390 KEY DEF 38,1,109,77,150:KEY 150 

."mode " 

400 PRINT SPC13) +CHR» (24) : "TURB0-CL 

AVIER - Version 2.3 - 1987 - KEHREN 
CHRISTIAN ":CHR*(24); n ... a votre 
service '":PRINT 

410 DELETE 10- 

420 REM * MAJUSCULES ♦ 

430 KEY 135. "GOTO " 

440 KEY 136, "G0SUB " 

450 KEY 137, "RETURN" 

460 KEY 132, "FOR " 

470 KEY 133, "T0 - 

480 KEY 134,"NEXT" 

490 KEY 129, "IF " 

500 KEY 130, "THEN " 
,510 KEY 131, 'USE " 



520 KEY 128/STEP " >MJ 

530 KEY 138,"CHR«i" >MF 

540 KEY 139, "PRINT" -NH 

550 KEY 14Û,"L0AD"+CHR»(34) >UU 

560 KEY DEF 58,1, 101,69, 141:KE( 141 >JF 

,"EDIT " 

570 KEV DEF 36,1,10B,?6,142:KEY 142 

."LIST " 

580 KEY DEF 69, 1,97, 65, 143: KEY 143. 

■AUTO " 

590 KEY DEF 62,1,99,67,144:KEY 144, 

"CLS" 

600 KEY DEF 50,1,114,82,145:KEY 145 

,"RUN " 

610 KEY DEF 35,1,105,73,146:KEV 146 

,"CALL MC02"*CHR$113i 

620 KE< DEF 60,1,115,83,147:KEY 147 

,"SAVE"tCHR$l34) 

630 KEY DEF 61,1, 100,68, 148:KE< 148 

,"CAT"tCHRI(131 

640 KEY DEF 68,1, 149,208. 228:I'E* 14 

9, "LOCATE" 

650 KEY DEF 9,1, KO, 206, 207 

660 KEY DEF 38,1,109,77, 150:KEY 150 

,"M0DE " 

670 PRINT SPC!3):CHR»(24i;"TURB0-CL 

AVIER - Version 2.3 - 1987 - KEHREN 

CHRISTIAN ";CHR»124!;" ... a votre 

service ! ":Ff<INT 
680 DELETE 10- 
690 END 

700 ' » Autres couleurs « 
710 CLS:LOCATE 30,6:PRINT CHR«(24i; 
" ";CHR»(242!i" ":CHR*i24);" %. "+CH 
R$(24)i" ":CHR*(243);" " iCHRt (24) : " 

- STYLO" 
720 LOCATE 30,10:PRINT CHRJi24);" " 
:CHR*l240)i" "iCHRJ(24)i" !,. "+CHR«( 
24)|" "iCHR$(241)i" ":CHR*(24i:" - 

PAPIER" 
730 LOCATE 30,14:PRINT CHR*(24i:" R >FG 
ETURN ■;CHRt(24):" - FIN" 
740 LOCATE 25,20:PRINT "STYLO : "iC 
HR$(24»:SiCHR*(24);" - PAPIER : "; 
CHR»(24);P;CHR*(24I 



)JJ 



Ht 



,>FE 



HH 



TD 



PI 



;LH 



>TZ 
>JL 



TU 



Ff 

>TJ 
>RH 
>NU 



HX 



<L 



750 CALL MB16 


MH 


760 IF INK£Y(B)<>-1 AND S<26 THEN S 


>NX 


=S+1:I»: 1,8 




770 IF INKEYIDO-l AND S>0 THEN S= 


>MV 


S-1:INK 1,8 




780 IF INKEY(0)O-l AND PÏ26 THEN P 


>ZY 


=P-H:INK 0,P:B0RDER P 




790 IF INKEY(2K>-1 AND P.>0 THEN P= 


>YX 


P-1:INK 0,P:B0RDER P 




800 IF INKEYU810-1 THEN 30 


>VJ 


810 LOCATE 25,20:PRINT "STYLO : ";C 


>XJ 


HR*(24I;S;CHR»(24):" - PAPIER : "; 




CHR$(24);PiCHR»(24) 




.820 GOTO 750 


ZJ 



TURBO CLAVIER 



CLAVIER 



CTRL + E : Edit 
CTRL + L : List 
CTRL + A : Auto 
CTRL + C : Cls 
CTRL + I : Init. couleurs 
CTRL + S : Save" 
CTRL + D : Dir (cata- 
logue) 

CTRL + M : Mode 
CTRL + R : Run 
CTRL + ENTER :Load" 
CTRL + COPY : 
noirures graphiques 
CTRL + TAB : cœurgra- 
phique 

SHIFT + TAB: ligne gra- 
phique 



Pour CPC 6128 et 664 



SHIFT + COPY: da- 
mier graphique 
TAB : locate 



PAVE 
NUMERIQUE 





chr$( 


fO 


step 


f1 


if 


f2 


then 


f3 


else 


f4 


for 


f5 


to 


f6 


next 


f7 


goto 


f8 


gosub 


f9 


return 



TABLEAU DES 

CARACTERES 

DE CONTROLE 



TURBO CLAVIER 




Pour CPC 6128 et 664 


CLAVIER 


SHIFT + COPY : damier graphi- 
que 




CTRL + E : Edit 
CTRL + L : List 
CTRL + A : Auto 


TAB : locate 


PAVE NUMERIQUE 




CTRL + C : Cls 




chr$( 


CTRL + 1 : Init. couleurs 


fO 


step 


CTRL + S : Save" 


fi 


if 


CTRL + D : Dir (catalogue) 


f2 


then 


CTRL + M : Mode 


f3 


else 


CTRL + R : Run 


f4 


for 


CTRL + ENTER : Load" 


f5 


to 


CTRL + COPY : noirures graphi 


f6 


next 


ques 


f7 


goto 


CTRL + TAB : cœur graphique 


f8 


gosub 


5HII- 1 + l AB : ligne graphique 


f9 


return 



PRIMI CHR*(1); 


CHR$( 


cod 


e ASCII) 


O 


n 




20 


© 


T 


1 


r 


A 


21 


■X. 


11 


2 


-L 


B 


22 


n 


U 


3 


j 


C 


23 


H 


N 


4 
S 
6 


H 

•y 


F. 

F 


24 


X 


X 


25 


♦ 


V 


26 


S* 


Z 


7 


fii 


G 


27 


e 


t 


8 


<-- 


H 


28 


ra 


N 


9 


-* 


I 


29 


M 


3 


ÎO 


4- 


J 


30 

31 


H 


t 


11 


r 


K 


12 


* 


L. 


32 






13 


<j 


M 


33 


I 




14 


® 


N 


34 


■• 




1S 


& 


O 


35 


«t 




±6 


H 


P 


36 


* 




17 


© 


G 


37 


y. 




18 


© 


R 


38 


& 




19 


<ù 


S 


39 


• 





Voici enfin le tableau de 
référence sur les carac- 
tères de contrôle. En ef- 
fet, certains listings peu- 
vent contenir des signes 
bizarres qui vous sont in- 
connus. Reportez-vous à 
ce tableau qui sera valable 
dans tous les cas de figu- 
res. 

Le listing Intruder con- 
tient trois de ces étranges 
signes : la flèche en haut 
et flèche en bas ainsi que 
le classique contrôle X. 




THE 



Au fin fond de l'univers, une 
nouvelle bataille... vous 
attend. Seul, face à une horde 
d'envahisseurs surgis de 
l'immensité intersidérale, vous 
assurez courageusement la 
défense de votre univers. 




LISTING 1 



1 ' mnmi i mminiiiiiiiin i n 

2 '* * 
LOADER INTRUDER * 



3 '» 

4 '* 

5 '* 

6 '» 



(c.'BISHEAD SOFTWARE 



>FA 

•FB 
,FC 
■FD 
FE 

;>FF 

7 '*+***##**#♦*#***#*********#*** >F6 

10 MODE 0:11* 0,0: BORDER Oill* 1,15 >PE 
:INK 3,14: INK 4,25:INK. 5,10:INK 4,7 
:INK 7,6:11*. 8,20: INK 10,2:INK 9,26 

11 EVERV 10,1 GOSUB 500 >QA 

20 SYMBOL AFTER 32 >MN 

21 SYMBOL 68,112,120,108,102,102,12 >FU 
6,124 

22 SYMBOL 69,112,96,120,120,96,124, >DT 
126 

23 SYMBOL 72,68,100,102,126,126,102 -EH 
,102 

24 SYMBOL 73,16,24,24,24,24,24,24 ,>ZD 

25 SYMBOL 78,66,102,118,126,102,102 >ET 
,102 



INTRUDER 

Xavier GROSSETETE 



Du haut de l'écran apparaît le vaisseau 
mère - hors de portée - larguant suc- 
cessivement des vaisseaux rebelles qui, 
lentement, inexorablement, descen- 
dent vers vous. 

Votre tir doit être stratégique et vous 
devrez faire mouche à chaque fois 
pour arriver jusqu'au vaisseau mère. 
Ultime challenge à surmonter. 
D'une bonfie présentation avec sa 
musique rythmée, ce jeu reste simple 
mais très difficile à tenir au niveau 3. 
A vos joysticks ou claviers ! 
Le premier listing (optionnel) vous 
donne la page de présentation et 
charge le jeu lui-même (deuxième lis- 
ting à sauver sous le nom d'INTRU- 
DER). 

Attention aux datas de redéfinition de 
caractères, ainsi que la partie de rou- 
tines en langage machine comprise 
entre les lignes 4380 à 4470. Je vous 
conseille vivement de sauvegarder 
votre travail avant de lancer celui-ci 
car, en cas d'erreur dans les datas, le 
plantage irrémédiable vous ferait per- 
dre toutes vos heures de frappes. 

26 SYMBOL 82, 120, 100, 100, 120, 104, 10 >FZ 

2, 102 

27 SYMBOL 84,126,126,24,24,24,24,12 >BY 

28 SYMBOL 85,68,102,102,102,102,126 >ET 
,124 

40 SYMBOL 141,0,0,0,0,0,0,8,29 >W6 

50 SYMBOL 142,0,0,0,0,0,0,0,128 >XC 

60 SYMBOL 143,0,3,31,63,255,254,248 >EX 

,240 

70 SYMBOL 144,127,255,255,254,128,1 >JH 

28,96,31 

90 SYMBOL 145,224,240,252,126,62,14 >HL 

,31,231 

90 SYMBOL 146,240,255,255,255,72,35 >B2 

,61,66 

100 SYMBOL 147,0,0,255,255,63,143,6 >FH 

4,127 

110 SYMBOL 148,15,255,254,253,225,1 >KC 
5,121,146 

111 SYMBOL 149,64,96,80,40,20,55,52 >DP 
,23 

112 SYMBOL 150,0,0,0,0,3,254,3,254 >AE 

113 SYMBOL 151,0,0,0,0,128,96,248,1 >BY 
4 

114 SYMBOL 152,48,48,57,79,244,6 >YB 



115 SYMBOL 153,0,1,255,224 >TZ 

116 SYMBOL 154,254,252,240,64,224 >ZN 

120 A*=" "+CHR$(141)tCHR«(142l+CHR« >YF 
(10)+CHR*(8)+CHR»l8>+CHR*(8l+CHR*(l 
43)+CHR*(144)tCHR»tl45l+CHR*tl0)+CH 
R$(8)*CHR$(8>+CHR*(8I+CHR»(146)+CHR 
»(147)*CHR*(148) 

121 NAV*=CHR$(149!+CHR»(150)+CHR*(1 >K 
51)+CHR«<10)+CHR»<8!*CHR«(8!+CHR*l8 
1+CHR» (152) +CHR$(153)+CHR* 11541 

130 FOR ETQILE=1 T0 100 >QF 

140 X=INT(RND»640) >NF 

150 Y=INT(RND«400) NB 

160 PLOT X,Y,INT(RND*15>*1 VH 

170 NEXT >ED 

180 FOR T=l T0 5:M0VE 30,T:HUW 610 >LE 

,T,1:NEXT 

190 FOR T=6 T0 20:MOVE 30, T: DRAW 61 >MZ 

Û,T,2:NEXT 

200 FOR T=20 T0 22:M0VE 30. T: DRAW 6 >NK 

10,T,9:NEXT 

210 FOR T=l T0 B:nWE T,26:DRAW T,3 /MF 

74,1: NEXT 

220 FOR T=8 T0 20:MOVE T,2t:DRAW T, >MH 

374,2:NEXT 

230 FOR T=20 T0 22:M0VE T, 26: DRAM T >NB 

,374,9:NEXT 

240 FOR T=616 T0 620:M0vE T,26:DR«N ;>8C 

T,374,9:NEXT 
250 FOR T=620 T0 632:M0VE T,26:DRAW -OU 
I T,374,2:NEXT 
260 FOR T=632 T0 636:M0VE T,26:DRAW >RV 

T,374,10:NEXT 
270 FOR T=394 T0 400:H0VE 30, T: DRAW >RE 

610,T,10:NEXT 
280 FOR T=3B2 T0 392:M0VE 30, T: DRAW ;>0T 

610,T,2:NEXT 
290 FOR T=378 T0 3B0:M0vE 30, T: DRAW >QD 

610,T,9:NEXT 

3i» X=20:F0R T=l T0 22:M0VE T,X:DRA >AT 
* T,20,10:X=X-1:NEXT 
310 X=380:FOR T=l T0 22:MOvï T,X:DR >CQ 
AW T,380,10:X=Xtl:NEXT 
320 X=380:FOR T=618 T0 636:MOVE T,3 >HB 
B0:DRAW 618,X,10:X=X*1:NEXT 
330 X=1:F0R T=61B T0 636:M0VE T,20: >CY 
DRAW T,X,10:X=Xtl:NEXT 

340 R=300 'CC 

341 X=0:Y=0:OR1GIN 0,0,30,640,30,40 >CK 


342 Z=R"2:F0R D=0 T0 R STEP 4:D1=SQ >MA 
R(Z-(D''2)):PL0T X+D,Y+D1,2:DRAW X+D 
,Y-D1,6:NEXT 

343 FOR A=0 T0 200 STEP 10 >RE 

344 PLOT INT(RND«300),INT(RND*300), >E6 


,345 NEXT >EH 



380 PRINT CHR«(22)+CHR*(1) >UM 

390 PEN 9 >BD 

400 LOCATE 2,9;PRINT A» JRN 

410 LOCATE 3,16:PRINT Pi* >TG 

420 LOCATE 4,21:PRINT A» >TE 

430 LOCATE 5,13:PRINT USING"&";fl» >BA 

440 LOCATE 10,5:PR1NT USIN6"!i - ;NAVJ >BJ 

450 PEN 10:LXATE 12,8:PRINT "THE": >m 
PEN 12:LKATE 10,10:PRINT "INTRUDER 

460 PEN 0:LOCATE 2,25:PRINT USING"!: >YT 
■jCHR*(164)+"BIGHEAD SOFTWARE": PEN 

1 

461 FOR t=l TO 540:NEXT t >TH 
470 RUN" ! INTRUDER >NQ 
500 READ B ;.JB 
510 IF B=-l THEN RESTORE 540: GOTO 5 >DH 
00 

520 SOUND 2,B,20,15:SOUND 1,6*1,20, >YK 
15:S0UND 4,B+2,20,15 
530 RETURN >ZD 

540 DATA 190,175,169,159,190,179,16 >NV 
9, 159, 95, 95, 106, 0, 106, 95, 95, 106, 1 19 
, 127, 119, 127, 142, 106, 127, 159, 190, 17 
9, 169, 159, 190, 179, 169, 159,96,96, 106 
, 119, 159, 190, 159, 190,239, 142, 179,21 
3,179,213,253,239,-1 



LISTING 2 



10 


*** 


#****#****###* 


20 


'# 




30 


* 


THE INTRUDER 


40 


* 




50 


* 


(c) BIGHEAD 


60 


'# 


SOFTWARE 


70 


* 


1987 


80 


* 





90 ' *#**+*#********#*♦*#*♦ 

100 TAG0FF:PRINT CHR*(23)+CHR»I0) 

110 MODE 

120 Tl$=" Z "+CHR$ (242) : T2*=CHR* 1243) 

♦"X":F»="ESPACE" 

130 GOTO 1630 

140 INK 0,0: BORDER 

150 MODE 0:SPE£D INK 50,50 

160 FOR 1=1 TO 15: INK I,0:NEXT I 

170 GOSUB 400 

180 ' iiiiiniHimiiHllli 

190 '« DECORS » 

200 ********************** 

210 FOR y=80 TO 350 STEP 5: PLOT RND 

*63B,y,9:IF RND>=0.5 THEN color=4:P 

LOT XP0S+color,y,10 ELSE color=-4:P 



LOT XP0S+color,y,10 

220 NEXT >DK 

230 PRINT CHR$(22)*CHR*(11 >UF 

240 PEN 13:L0CATE 1,22:PRINT STRIN6 >UN 

»<20,CHR*(214>> 

250 PEN 2:L0CATE 1,22:PRINT STRING» >TT 

(20,CHR*(215I) 

260 LOCATE 1,25:F0R 1=248 TO 253:PR >MD 

INT CHR$(I)::NEXT:PEN 9:PAPER 

270 PEN 6:L0CATE 13,25:PRINT USING" M 

i'VINTRUDER":: / 

280 LOCATE 1,1 >PG 

290 PRINT CHR*(22)+CHR*(0) >UL 

300 INK 1,6: INK 2, 11: INK 3,3: INK 4, >PG 

15: INK 5, 18: INK 6, 11: INK 7,22: INK 8 

,26: INK 9,26,0: INK 10,0,26: INK 13,2 

:INK 14,26:1»: 11,26:1*. 15,0 

310 LOCATE 1,1 >PA 

320 GOSUB 4420 >PG 

330 x=300 >CH 

340 cx=8 >ZF 

350 xl=8 >XJ 

360 B=0 >NC 

370 c=-5 >VC 

380 po=62999 >DE 

390 GOTO 720 >ZH 

400 ' *#**#*****#****♦**#♦** >RE 

410 '• REDEFINITION CARAC.» >RF 

420 '#*****♦*♦#*»**#***#**# >RG 

430 SYMBOL 236,1,1,15,15,1,1,1,1 >YT 

440 SYMBOL 237,128,128,240,240,128, >MD 

128,128,128 

450 SYMBOL 238,7,8,16,32,64,255,128 >ET 

,255 

460 SYMBOL 239,224,16,8,4,2,255,1,2 >CE 

55 

470 SYMBOL 240,0,24,60,189,255,255, >HE 

153, 129 

480 SYMBOL 241,0,0,0,63,64,64,63 >YV 

490 SYMBOL 242,0,126,129,126,0,0,25 >FJ 

5,255 I 

500 SYMBOL 243,0,0,0,252,2,2,252 >YX 

510 SYMBOL 248,240,144,128,240,16,1 >KZ 

6.144.240 

520 SYMBOL 249,0,0,240,144,128,128, X* 

144,240 

530 SYMBOL 250,0,0,240,144,144,144, ;>HY 

144,240 

540 SYMBOL 251,0,0,160,208,208,128, >HN 

128, 128 

550 SYMBOL 252,0,0,240,144,240,128, >HD 

128,240 

560 SYMBOL 253,0,0,240,0,0,240 >HT 

570 SYMBOL 150,7,i,lF,*,3F,&7F,!,7F,25 >KZ 

5,255,255 

580 SYMBOL 151,i£0,t,F8,!iFC,&FE,!,FE, >NN 

255,255,255 



590 SYMBOL 152,255,255, 4CF, 147,1*3, >LU 
l33,l.lF,i,7 

600 SYMBOL 153,255,255,255,254,254, >MU 
lfC,4F8,l£0 

610 SYMBOL 48,24,36,36,0,36,36,24 >ZK 
620 SYMBOL 49,0,4,4,0,4,4 >TK 

630 SYMBOL 50,24,4,4,24,32,32,24 ;>YM 
640 SYMBOL 51,24,4,4,24,4,4,24 >WG 

650 SYMBOL 52,0,36,36,24,4,4 >VB 

660 SYMBOL 53,24,32,32,24,4,4,24 >YU 
670 SYMBOL 54,24,32,32,24,36,36,24 ;>AR 
680 SYMBOL 55,24,4,4,0,4,4 >TA 

690 SYMBOL 56,24,36,36,24,36,36,24 >« 
700 SYMBOL 57,24,36,36,24,4,4,24 >YB 
710 RETURN >ZD 

720 '*»*****#***#**#***###* ;:RK 

730 » BOUCLE PRINCIPALE t /TA 

740 '***#*****#♦*##»##**#** >TB 

750 IF INKEY!touchel)=0 AND :<>-2 TH >NE 
EN x=x-16:po=po-2 

760 IF INKEY<tauche2)=0 AND x<603 T >YD 
H£N x=x+16:po=po+2 

770 TAG >UC 

780 PLOT -10,-10,6:M0VE x-32,40:PRI >YF 
NT" ";CHR»1240)i" "j 
790 IF INKEY(touche31=0 THEN GOSUB >GG 
1520 

800 PLOT RND*638,350,9:IF RND>=0.5 >DD 
THEN color=4:PL0T XP0S+color,350,10 
ELSE color=-4tPL0T XP0S+color,350, 
10 

810 FOR 1=62960 TO 63000 STEP 2:F=P >G6 
EEK(I):IF fX> THEN GOSUB 1120 
820 NEXT >EF 

830 IF INKEY (271=0 THEN TAGOFF:PEN >FP 
5:L0CATE 13,25:PRINT USING"!.": "PAUS 
E ";:CALL !,BB06:CALL 4BB06:CALL 1 
BB06:PEN 6:L0CATE 13,25:PRINT USING 
"t";"INTRUDER";:TAG 

840 CALL 17000 >HK 

850 IF INKEY (tcuchel 1=0 AND x>-2 TH >WH 
EN x=x-16:po=po-2 

860 IF INKEY(touche2)=0 AND x<603 T >YE 
HEN x=x+16:po=po*2 / 

870 PLOT -10,-10,6:H0VE x-32,40:PRI >YF 
NT" "jCHR*(240);" "j 
880 IF INKEY(touche3>=0 THEN GOSUB )GS 
1520 

890 FOR 1=63000 TO 63038 STEP 2:-f=f >GM 
EEK(i):IF <>0 THEN GOSUB 1120 
900 NEXT >EE 

910 IF n=2 THEN CALL 8.7000 >TC 

920 IF n=3 THEN CALL Î,7000:CALL Î.70 >CD 
00 

930 xl=xl+cx >HD 

940 b=B+l >CD 

950 c=Ctl >C8 



8 



■■^^■■m 



960 PLOT -10,-I0,4:M0VE :<1,38Û:PRIN >ZD 
T " ":CHRt(241):CHR$(242):CHR»(243) 

970 IF 5C=1000 THEN TAGOFF:PEN 1:L0 >RJ 
CATE 13,25:PRINT USING'TyBONUS 1 »' 
";:FOR bonus=sc TO sC+490 STEP 10: L 
OCflTE 7,25:PEN 5:PRINT bonus:SOUND 
l,60,2,7:NEXT:sc=bomi5:L0CATE 13,25 
:PEN 6:PRINT USINB'^"; " INTRUDER"; : T 
AG 

9B0 IF SC=2000 OR SC=3000 OR SC=400 >NF 
THEN FIN=1 

990 IF SD=2150 OR SOM150 THEN >EH 
FIN=0 

1000 IF SC=3150 THEN FIN=4 >TU 

1010 IF SX500 THEN GOTO 4480 >XS 

1020 TAGOFF:PEN 5:L0CATE 7,25iPRINT >MK 
sc;:TA6 

1030 IF xl=0 OR xl=576 THEN cx=-cx ;>AE 
1040 IF b>=10 THEN b=0:GOSUB 1210 >ZF 
1050 IF c>=5 THEN c=-5:G0SUB 1220 >ZU 
1060 CALL WOOO >PF 

1070 MOVE 0,76:DRAWR 640,0,10 >MJ 

1080 GOTO 750 >FG 

1090 '**#**#*****#****+**#** >YC 

1100 '« TEST ECRAN * >XE 

1110 '##****#***#*#«#*♦***** >XF 

1120 IF PEEK(l)=5 OR PEEK(i)=10 OR :>KU 
PEEKli)=65 OR PEEK(l)=75 OR PEEK(i) 
=130 OR PEEK(i>=135 THEN RETURN 
1130 ENV 1,30,0,1, 127,-1, ISiSOUND 1 >UQ 
29,0,240,15,1,0,10 

1140 SPEED INK 1,1:1NK l,26,O:B0RDE >UY 
R 26,0:11*: 0,0,26 

1150 FOR 1=1 TO 500:NEXT >RP 

1160 IF SSII) =132 THEN 1160 ELSE vi >HB 
e=vie-l 

1170 IF vie» THEN G0SU8 4710:B0T0 >EG 
150 

1180 NHILE INKEY$« , "':NEND:GOSUB 34 >FH 
90 

1190 CALL UB06 >UE 

1200 CLS:60SUB 3430:G0T0 1780 >XM 

1210 IF FIN=0 THEN HOVE (INT(RND*70 ?ZE 
I) «4+10,300: GOTO 1290 
1220 IF FIN=0 THEN MOVE (INT(RND»65 >AC 
>) «4+346, 300: GOTO 1290 
1230 IF FIN=2 THEN RETURN >UN 

1240 IF FIN=1 THEN GOTO 1350 >VD/ 

1250 IF FIN=4 THEN GOTO 1420 >VF 

1260 ' ********************** >YB 

1270 '« INTRUDERS « >YC 

1280 «a***»****»»»********* >YD 

1290 IF RND>0.63 THEN DRAWR 8,0,7:11 >XJ 
OVER 4,-2:DRANR -16,0,7iPLOTR -2,0, 
7:PL0TR 16,0,7:MOVER 0,-2:DRAHR 4,0 
,5:DRA*R 0,-16,5:PL0TR -4,14,5:M0VE 



R -16,0:DRANR 0,2,5:DRAKR -2,0,5:DR 
AMR 0,-16,5:PL0TR 4,0,3:PL0TR 16,0, 
3:M0VER -4,4 ELSE GOTO 1310 
1300 DRAWR 0,14,1:N0VER -4,0:DRANP 
0,-16,l:M0VER -4,2:DRAWR 0,14,1:PL0 
TR O,-4,ll:PL0TR 8,0,11:PL0TR -4,-6 
,3:PL0TR 0,-4,ll:RETURN 
1310 IF RND>0.33 THEN DRAWR 8,0,7:11 
OVER 4,-2:DRAWR -16,0,7:PL0TR -2,0, 
7:PL0TR 16,0,7:t10VER 0,-2:DRANR 4,0 
,6:DRAWR 0,-16,6:PLOTR -4,14,6:M0VE 
R -16,0:DRAWR 0,2,6:DRAUR -2,0,6:DR 
AMR 0,-16,6:PL0TR 4,0,3:PL0TR 16,0, 
3:M0VER -4,4 ELSE GOTO 1330 
1320 DRANR 0,14,1:M0VER -4,0:DRAHR 
0,-16,1:MOVER -4,2:0RAWR 0,14,1:PL0 
TR O.-4.11:PL0TR B.0.11:PL0TR -4.-6 
,3:PL0TR 0,-4,ll:RETURN 
1330 PLOTR 0,0,1:N0VER 4,0:0RAWR 8, 
0,7:PL0TR 0,-2,7:M0VER 16,0:DRAUR 
,2,7:DRANR 8,0,7:PL0TR 4,0,1:M0VER 
-16,-2:DRAWR 0,-4,4:MOVER -4.0:DRAW 
R 0,6,4:M0VER -4,-2:DRAWR 0,-4,4:PL 
OTR 0,2,7:PL0TR B,0,7:PL0TR -4,-4,2 
:PLOTR -12,-2, kPLOTR 4,2,1:PL0TR 4 

,"2,1 

1340 PLOTR 8,0,1:PL0TR 4,2,1:PL0TR 
4,-2,l:RETURN 
1350 TA60FF 
-1360 LOCATE 7,5:PRINT CHR»(i50);'T 

r;CHR»(151); 
1370 LXATE 6,6:PRINT CHR$(150);T 

T';CHR*(151); 
1380 LOCATE 4,7:PRINT CHR*(150);"IT 
HE INTRUDERI";CHR»(151); 
1390 LOCATE 4,8:PRINT CHR$(152!;"Î 

I"; CHR» (153); 
1400 LXATE 5,9:PRINT CHR»(152);'T 

I";CHR»(153); 
1410 SC=SC+25:TAG:FIN=2:RETURN 
1420 TAGOFF 

1430 PEN 4:L0CATE 3,5:PRINT CHR*I15 
0):LOCATE 4,6:PRINT CHR»(153) 
1440 PEN 5:L0CATE 4,5:PRINT CHR*(15 
t):LOCATE 3,6:PRINT CHR»U52> 
1450 PEN 5:LXATE 15,6:PRINT CHR*(1 
50):LXATE 16,7:PRINT CHR$(153) 
1460 PEN 4:LXATE 16,6:PRINT CHR*(1 
51):LXATE 15,7:PRINT CHRK152) 
1470 PEN 7:LXATE 8,7:PRINT CHR»(15 
OI:LCCATE 9,8:PRINT CHR*(153) 
1480 PEN 1:LXATE 9,7:PRINT CHR*(15 
1):LXATE 8,8:PRINT CHR»(152> 
1490 SC=SC+25:TA6:FIN=0:RETURN 
1500 '*#**♦♦******♦*******»* 
1510 '» TIR LASER ♦ 

1520 '«****♦*##**********»* 
l 

9 



1530 ENV 2,15,-1, 10:ENT 2,150,10,1: >FC 
SOUND 129,50,50,15,2,2: TAGOFF:LXAT 
E 1,1:PRINT CHR*(23);CHR»(1):TAG:H0 
VE x+16,60:DRAWR 0,350,2:CALL &BD19 
:MOVE x+16,60:DRANR 0,350,2: TAGOFF: 
LOCATE 1,1:PRINT CHR«(23)+CHR*(0):T 
AS: pb=88 
1540 FOR l=po TO (po-1520) STEP -80 >AM 



1550 pb=pb+16:IF PEEK(i)=0 OR PEEKI 
i)=5 OR PEEK(i)=10 OR PEEKI i) =65 OR 
PEEK(i)=75 OR PEEK(i)=130 OR PEEK! 
l)=135 THEN 1580 

1560 sc=sc+25:ENV 1,30,0,1,127,-1,1 
5:S0UND 129,0,240, 15, 1,0, 10:PL0T -1 
0,-10,2:MOVE x-22,pb:PRINT" ";:M0 
VE x-22,pb-16:PRINT" " ; : IIOVE x-22 
,pb-32:PRINT" ";:MOVE x-22,pb+3:F 
RINT" ";:i=po-1520 
1570 TAGOFF:L0CATE 1,1:PRINT CHRK2 
3)+CHRS(l):TAG:M0VE X+16,60:DRAWR 
,350,2:CALL !iBD19:M0VE X+16,60:DRAW 
R 0,350,2:TAG0FF:LXATE 1,1:PRINT C 
HR»(23)+CHR»(0):ÎAG 
1580 NEXT 
1590 RETURN 

1600 ' #**#*****#*****♦»***** 
1610 '» MENU » 

1620 '**************#+**♦*** 
1630 GOSUB 2260 
1640 MODE 1 

1650 INK 1.26: INK 2,26: II*; 3,26 
1660 SOSUB 2730 

1670 MINDDW #2,7,40,7,25:PAPER#2, 1: 
PEN#1,0 

1680 HINDOU ll,3,37,3,24:PAPER*l,l: 
CLStl 

1690 PEN 1: PAPER 
1700 LOCATE 3,3:PRINT CHR*(250):L0C 
ATE 37,3:PRINT CHR» (249): LOCATE 3,2 
4:PRINT CHRt(248):L0CATE 37,24:PRIN 
T CHR» 1247) 
1710 PEN #2,2 

1720 LOCATE 18,4:PEN 3:PAPER 1:PRIN 
T"MENU" 

1730 GOSUB 2690 

1740 LOCATE 7,20:PRINT"INTRUDER" 
1750 GOSUB 2730 

1760 PEN 2:L0CATE 9,23:PRINT CHR»(1 
641" BIGHEAD SOFTWARE 1987" 
1770 PEN 5:L0CATE 4,5:PRINT CHR«(15 
1):LXATE 3,6:PRINT CHR»(152) 
1780 PRINT#2,"1...INSTRUCTI0NS" 
1790 PRINTH2 

1800 PRINT#2,"2...CH0IX CLAVIER OU 
JOYSTICK!" 
1810 PRINT#2 



RE 



•LF 
FJ 
>XK 
>YA 
>YB 
>XC 
.-PS 
>X6 
>XH 
KM 

>HJ 

.M6 
;RR 



>ZE 

Lh 

>YA 

■BE 
:XH 
>KH 



•HE 



M 



1820 PRINT #2, "3... REGLAGE DE LA DI >ND 

FFICULTE" 

1830 PRINT #2 >HB 

1840 PRINT 12, "4... MEILLEURS SCORES >F6 



1850 PRINTI2 


>HB 


1860 PRINTI2,"5...JEU" 


OZ 


1870 INK 1,0: INK 2,11:1»! 3,6 


>VT 


1BB0 a»=INKEY$ 


>XB 


1890 IF a*="l" THEN GOTO 1980 


>VX 


1900 IF a*="2" THEN GOTO 2770 


>VM 


1910 IF a$="3" THEN GOTO 2990 


>VU 


1920 IF a»="4" THEN GOTO 3200 


>VE 


1930 IF a$="5" THEN PRINT CHR»(22>+ 


>EJ 


CHR$(0)+CHR$(23)+CHR»(0):VIE=3:SC=0 




:BOT0 140 




1940 GOTO 1880 


>NJ 


1950 'UIUIIIHIIIIIIIIIIII 


>YH 


1960 '» REGLES » 


>YJ 


1970 '*********##**+*#*****+ 


>YK 


1980 GOSUB 3410:60S0B 4110 


UB 


1990 DATA " REGLES DU JEU" 


.ïG 


2000 DATA " AU FIN FOND DE L UNI VER 

S" 

2010 DATA "UNE NOUVELLE BATAILLE 


>FX 


>FD 


2020 DATA "VOUS ATTEND.... 


CF 


2030 DATA " FACE A CES NOUVEAUX 


>EP 


2040 DATA "ENVAHISSEURS, PLUS Q'UNE 


>6M 


2050 DATA "CHOSE A FAIRE : 


>CF 


2060 DATA " VOUS DEFENDRE' 


>CR 


2070 X=120:Y=330:PRINT CHR*(221+CHR 


>LC 


*<1);:PRINT CHR»(23)*CHR*(1) j 




2080 RESTORE 1990:F0R 1=1 TO B:READ >GC 


F$(II 




2090 TAG:PLOT -2,-2,l:M0VE X,Y:PRIN 


>LV 


T P»(I); 




2100 PLOT -2,-2,2:M0VE X+1,Y-1:PRIN 


;KE 


T P»(I); 




2110 Y=Y-20 


>UK 


2120 TAGOFF 


AH 


2130 NEXT 


•KH 


2140 TAGOFF 


•m 


2150 RESTORE 2220 


>LN 


2160 READ A,B 


■ES 


2170 IF A=-l THEN GOTO 2210 


>TX 


2180 SOUND 1,A,B,7:SBUND 2,A»4,B-2, 

5 

2190 IF INKEY(47)=0 THEN FOR lc=l TO 


•ce 


>TH 


35:PRINT:NEXT:G0SUB 3430:G0T0 1780 





2200 GOTO 2160 



J 



2210 FOR T=l TO 1000:NEXT T:FOR k=l >XK 
TO 35:PRINT:NEXT:G0SUB 3430:G0T0 1 
780 

2220 DATA 478,50,319,50,358,13,379, -EX 
13,426,13,239,60,319,60,358,13,379, 
13,426,13,239,60,319,60,358,13,379, 
13,358,13,426,70,-1,0 
2230 '*#*****#********#*#*** >XK 
2240 » PRESENTATION CLAP ♦ >YA 
2250 '#************♦****♦#** >YB 
2260 INK 0,26:B0RDER 26: INK 0,26: IN >AV 
K 1,26: INK 2,26:11*: 3,6: INK 11,0: IN 
K 13,0:INK 12,26:INK 14,11 
2270 GOSUB 3750 >XJ 

2280 WNDOHIH, 2, 19,5,22 >RT 

2290 PAPER#1,1:CLS»1 >PJ 

2300 PAPER 0:PEN 1:L0CATE 2,22:PRIN >AH 
T CHR$< 248): LOCATE 19,22:PRINT CHR* 
(247) 

2310 PEN#1,0 >YE 

2320 PRINTtl,"UNIVERSAL STUDIOS" >CH 
2330 PRINT#1 ,'GE 

2340 PRINT41, "PRODUCTION " >FT 

2350 PRINT»1,"DIRECT0R " >GF 

2340 PRINTtl, "CAMERA " ,»SU 

2370 PRINTtl ;GJ 

2380 PRINTtl," DATE SCENE TAKE"; >CG 

2390 PRINTtl," " >HH 

2400 PEN 1: PAPER >LE 

2410 FOR X=3 TO 17 STEP 4 >RE 

2420 LOCATE X,4:PRINT CHR»l214)CHR* >TJ 

(143ÎCHR»(212) 

2430 LOCATE X+1,3:PRINT CHRt(214)CH >VZ 

RJ(143)CHR$(212) 

2440 NEXT JLB 

2450 FOR X=4 TO 17 STEP 4 >RK 

2460 LOCATE X,2:PRINT CHR$(213)CHR* >TN 

(143)CHR$(215> 

2470 LOCATE X-1,1:PRINT CHR*(213)CH >VF 

R»(143)CHR«(215) 

2480 NEXT >LF 

2490 TAG:PLOT -2,-2,l:MOVE 5O,390:P >TB 

RINT CHR*(231) ! :H0VE 50,390:PRINT C 

HR»(230!;:TA60FF 

2500 PLOT 30, 60, 1 : DRAW 30, 39B: DRAN >EZ 

607,39B:DRAW 607,330:PL0T 30,367:DR 

AW 607,367 

2510 PRINT CHR»(22)+CHRt(l> >VE 

2520 PEN 2 >FK 

2530 LOCATE 12,7:PRINT"INTRUDER" >BD 

2540 LOCATE 12,9:PRINT CHR*(164I+"B >KD 

IGHEAD" 

2550 LOCATE 13,11:PRINT"AMSTRAD" >BY 

2560 PRINT CHR$(22)*CHR$(0) >VJ 

2570 PRINT CHR*(23)*CHR»(1) >VM 

2580 FOR 1=0 TO 200 STEP 2:PL0T 1,4 >GQ 

0O-I,12:DRAW 640, 400-1: PLOT 1,1+I:D 



RAVI 640,1*I:NEXT:PL0T 1,200:DRAN 64 
0,200,12 

2590 toucheWl: touche2=63: touche! 3 
47:n=l 

2600 DIM Hl(20).n»*(20) 
2610 RESTORE 2620:F0R 1=1 TO 10:REA 
D HKI>,NM»(I):NEXT 
2620 DATA 4500, "D.VINCENT", 4000, "SP 
OCK", 3000, "NEMESIS", 2500, "HERKY", 10 
00, "COBRA", 999, "MAD", 950, "CRAD MAX" 
,900,"SKELETOR",850,"GRYZOR",500,"M 
UTANTS" 

2630 NHILE INKEY«<>"":HEND 
2640 A*=INKEY» 

2650 IF A»=CHR*(32) OR A«=CHR»<13> 
THEN RETURN ELSE GOTO 2640 
2660 '***»#**#**#*##»**#*#** 
2670 '« ECRITURE MODE 0/1 « 
2680 '*******##*##*#***n**# 
2690 POKE !,B1C8,0:P0KE &BlD0,Sc33:RE 
TURN 

2700 ' **+**##*****#*#**#♦#*# 
2710 't ECRITURE MODE 1/1 t 
2720 ' ##*****#*m*****#**t* 
2730 POKE (.B1C8,1:P0KE 1B1D0,W4:P0 
KE 4BlDl,!i22:P0KE Ulfi2,UliRETURN 
2740 ' **»**#**#**********#** 
2750 » CHOIX CLAVIER/ JOYS.» 
2760 ' ************♦#*##***** 
2770 GOSUB 3410 

2780 PRINT CHR$(22)+CHR*(1)+CHR«(23 
>+CHR*ll) 

2790 DATA " CLAVIER» 1 ).. .JOYSTICK (2 
)" 

2800 RESTORE 2790: READ P*:TAG:PLOT 
-2,-2,l:M0VE 120, 330! PRINT Pt; : PLOT 
-2,-2,2:MOVE 121,329:PRINT P»;:TAG 
OFF 

2810 PEN 3:L0CATE 6,6:PRINT T1*;T2» 
:" ";F»:LOCATE 22,5:PRINT CHR$(254) 
*CHR$(251):L0CATE 22,6:PRINT CHR»(2 
52)+CHR$(253) 
2820 RESTORE 2950 

2830 ENV 2,4,0,1,7,-1, 1:ENV 3,24,-1 
.25,0.5 
2840 G=12 

2850 FOR A=l TO 16:READ CD 
2860 SOUND 1,C,12,15,2:S0UND 2*16,0 
,12,G,3,,D 

2870 IF D=l THEN 6=12 ELSE G=15 
2880 IF D=l THEN ENV 3,3,0,1,1,-12, 
1 

2890 IF D=31 OR D=8 THEN 6=15 
2900 A*=INKEY» 

2910 IF A*="l" THEN touchel=71:touc 
he2=63: touche3=47: CLS: GOSUB 3430: GO 
TO 1780 



>VT 
HG 

DG 

>YG 
YH 
>YJ 
>6F 

>B 
>YC 
>YD 
>RV 

>YF 
>YG 
>YH 
XS 
>LQ 



■un 

>LP 

>XA 
>AG 

>VQ 

•EU 
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^P^HHMi^HBBHBHBH 



2920 IF A*="2" THEN touchel=74:touc >E6 

he2=75:touche3=76:CLS:GOSUB 3430:60 

T0 1780 

2930 NEXT 

2940 GOTO 2820 

2950 DMA 638,1,438,1,319,1,319,1,6 

38,31,638,1,319,1,319,1,638,1,638,1 

, 426, 1 , 426, 1 , 358, 31 , 379, 1 , 426, 1 , 506 

,1 

2960 ' M******************** 

2970 « REGL. DE LA D1FFI. » 

2980 ' #****♦*♦**#*******+**+ 

2990 GOSUB 3410 

3000 PRINT CHR»(22)+CHR*(1)*CHRS(23 

l+CHMU) 

3010 DATfi "REGLAGE DE LA DIFFICULTE 

3020 RESTORE 3010:READ P»:TAG:PL0T 
-2,-2,l:M0VE 120,330:PR!NT P«::PLOT 
-2.-2.2:M0VE 121,329:PRINT P*::TAG 
OFF 

3030 PEN 2:PRINT:PRINT: PRINT:PRINT 
NIVEAU 1":PPINT" 
NIVEAU 2":PRINT" NIVE 
AU 3" 

3040 DATA " APPUYER SUR 1,2 OU 3" 
3050 GOSUB 4110:REST0RE 3040:READ P 
*:TAG:PLOT -2,-2,l:liOVE 135,200:PRI 
NT P»;:PLOT -2,-2,3:M0VE 136,199:F'R 
INT P«;:TAGOFF 
3060 RESTORE 3150 
3070 FOR U»l TO 32:READ V,N,X 
3080 ENV 5,4,0,1,8,-1,1 
3090 SOUND 1,V,12,15,2:S0UND 18,0,1 
2,0,3,, N:SOUND 36,X, 12,14,5 
3100 A«=INKEY« 

3110 IF A*="T THEN N=1:CLS:G0SUB 3 
430:G0T0 1780 

3120 IF A»="2" THEN N=2:CLS:G0SUB 3 
430; GOTO 17B0 

3130 IF A»="3" THEN N=3:CLS:G0SUB 3 
430: GOTO 1780 
3140 NEXT:GOTO 3060 
3150 DATA 638,1,0,638,1,0,319,1,119 
,319,1,0,638,31,106,638,1,0,319,1,1 
19,319,1,0,638,1,127,438,1,0,426,1, 
159,426,1,0,358,31,127,379,1,0,424, 
1,159,506,1,0 

3160 DATA 63B, 1,95, 638, 1,106, 319,1, 
89,319,1,106,358,31,0,638,1,0,319,1 
,0,319,1,0,438,1,0,638,1,0,426,1,0, 
426,1,0,358,31,0,379,1,0,426,1,0,50 
6,1,0 

3170 'm******************* 
3180 '« TOP 10 * 

3190 '*****#*******#******** 
3200 GOSUB 3410:PEN 2 



^3210 DATA" TOP 10" >RJ ' 

3220 PRINT CHR*(22)+CHRS(1)+CHR«(23 >LE 



KCHRMl) 

3230 RESTORE 3210:READ P$:TAG:PLOT 
-2,-2,l:M0VE 120,330:PRINT P$;:PLOT 
-2,-2,2:M0VE 121,329:PRINT P»; 
3240 GOSUB 4110:Y=290 >PR 

3250 FOR 1=1 TO 10 >LE 

3260 PLOT -2,-2,l:M0VE 200,Y:PR1NT >N6 
HI(I);:MOVE 320,y:PRINT 1*1* ( 1 ) ; 
3270 PLOT -2,-2,2:M0VE 200,Y:PRINT >ML 
HI(I);:MOVE 320,y:PRINT mil); 
3280 Y=Y-19 >N6 

3290 NEXT:TA60FF >NH 

3300 RESTORE 3380 >LV 

3310 ENV 1,1,15,1,1,-3,2,1,0,1,1,0, >HD 
1, 12,-1, 4:ENV 2,1,15,1,1,0,1,1,0,1, 
12,-1,8,2,-1,20 

3320 FOR VI TO 46: IF V=32 THEN RES >KF 
TORE 3380 

3330 READ P,D:D=D»15 >NC 

3340 SOUND l,P,D,6l SOUND 2,P*2,D,5, ,YD 
2:S0UND 4,F73,D,5,1 

3350 IF INKEY(47>=0 THEN LOCATE 1,1 >KF 
8:F0R T=l TO 16:PRINT:NEXT:G0SUB 34 
30:GOTO 1780 

3340 NEXT >LD 

3370 GOTO 3400 >MH 

3380 DATA 478,4,358,3,358,1,358,4,3 >9. 
19,4,284,3,284,1,284,4,358,2,319,2, 
284,2,248,4,379,4,319,4,358,4 
3390 DATA 239,2,239,2,284,2,213,4,2 
39,2,239,2,248,2,248,4,248,2,248,2, 
319,2,239,4,248,2,248,2,284,2,284,4 



•IH 



K 



3400 LOCATE 1,18:F0R T=l TO 14:PRIN 
T:NEXT:60SUB 3430:G0T0 1780 



HF 





3410 NINDON 5,35,4, 19:CLS 


■M 


JPB 


3420 RETURN 


>FC 




3430 HINDOU #2,7,40,7, 25:PAPER«2,1: 


'LE 


>PE 


PEN 3: LOCATE 14,1:PRINT"MENU" 






3440 GOSUB 3750 


>XJ 


>NF 


3450 RETURN 


>FF 


>JT 


3460 'uiMimiimninuui 


>YF 




3470 '« CLASSE AU TOP 10?? ♦ 


>YG 




3480 '**♦**#****#*********** 


>YH 




3490 FOR 1=1 TO 10 


>LL 




3500 IF SCMltli) THEN 3530 


>TP 


:RC 


3510 NEXT 


>LA 




3520 INK 0,24: BORDER 24: INK 1,0: INK 


>Ptl 




2,11:INK 3,4:G0SUB 3750:GOTO 1440 






3530 FOR j=10 TO I STEP -1 


m 


>YD 


3540 hi(j+l)=hi(j):n«J(j+l)=nn*(jl 


BE 


>YE 


3550 NEXT 


>LE 


>YF 


3560 hi(i)=5C 


)MC 


,PM 


3570 MODE 1:PEN 2: INK 1,6:11*: 2,11: 


>H6 



INK 3,24 

35B0 TAGOFF >BJ 

3590 LOCATE 14.5-.PRINT CHR*(150);"X >XT 

T';CKR«(151); 
3400 LOCATE 15,6:PRINT CHR»il50);"I >ZG 

I";CHR*(151); 
3610 LOCATE 13,7:PRINT CHR$tl50];"I >HT 
THE INTRUDERTiCHR*(151)| 
3620 LOCATE 13,B:PRINT CHR»U52!;1 >CF 

I";CHR*(153); 
3630 LOCATE 14,9:PRINT DHR»U52lj1>flC 

T';CHR*(153); 
3440 ENT 2,15,1,3 >DK 

3650 LOCATE 1,12 >DH 

3660 PAPER 0:PEN 3:PRINT" BRAVO, VO /RU 
US ETES CLASSE DANS LE TOP 10" 
3670 FOR N0=1 TO 26 STEP 0.5:B0RDER ,HQ 
27-N0:INK 0,NO:INK: 2,27-N0:INK 3,2 
7-N0:F0R I«l TO 40:NEXT T:SOUND 130 
,0,5,15,0,0,N0:NEXT NO: INK! O,0:PEN 
3: INK 2,U:INK 3,24: INK 1,6: BORDER 


3480 PEN 1:PRINT:PRINT" ENTREZ V >TZ 
OTRE NOM:"; 

3490 WHILE 1NKEY*0"":WEND >VA 

3700 PEN 3:LINE INPUT G» ,>RX 

3710 NM* ( I ) =LEFT* (Et, 10) : INK 0,24:B ;TW 
ORDER 24: INK 1,0: INK 2,11:1* 3,4:G 
OSUB 3750: GOTO 1440 

3720 't********************* >YE 

3730 « REDEF. CARAC. « >YF 

3740 [lllllllllllllll l l i m >YG 

3750 SYMBOL AFTER 32 >PA 

3760 SYMBOL 250,7,HF,KF,!.7F,! I 7F,2 >LV 
55,255,255 

3770 SYMBOL 249,(£0,!,F8,W : C,t<FE,8fE >PU 
,255,255,255 

3780 SYMBOL 248,255,255, KF,M7,163 >HN 
,k33,lilF,li7 

3790 SYMBOL 247,255,255,255,254,254 >NE 
,8,FC,l<F8,!<E0 

3800 SYMBOL 254,0,0,15,7,3,3,3,3 >YC 
3810 SYMBOL 251,0,0,128,192,192,192 >JR 
,192,192 
3820 SYMBOL 252,3,3,3,3,15,31,31,31 >AH 

3830 SYMBOL 253,192,192,192,128,254 >NK 

,254,252,252 

3840 SYMBOL 65,254,194,194,254,226, >HX 

226,226 

3850 SYMBOL 66,252,194,194,252,226, )HU 

226,252 

3860 SYMBOL 67,254,192,192,192,224, >HV 

224,254 

3870 SYMBOL 68,252,194,194,194,226, >HD 

226,252 

3880 SYMBOL 69,254,192,192,254,224, >HY 
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224,254 

3890 SYMBOL 70,254, 192, 192, 254,224, >W 

224,224 

391» SYMBOL 71,254, 192, 192, 198,226, >HT 

224,252 

3910 SYMBOL 72,194,194,194,254,224, >W 

226,226 

3920 SYMBOL 73,24,24,24,24,28,28,28 ;BG 

3930 SYMBOL 74,6,6,6,6,230,230,124 >AN 

3940 SYMBOL 75,70,196,200,240,232,2 >GN 

28,226 

3950 SYMBOL 76,192,192,192,192,224, >HX 

224,255 

3960 SYMBOL 77,198,234,210,194,226, >HX 

226,226 

3970 SYMBOL 78,194,226,210,202,230, >HE 

226,226 

3980 SYMBOL 79,124,194,194,194,226, >HD 

226, 124 

3990 SYMBOL 80,254,194,194,254,224, >HU 

224,224 

4000 SYMBOL 81, 124, 194, 194, 194,234, ,>HC 

228,122 

4010 SYMBOL 82,254,194,194,254,232, >HJ 

228,226 

4020 SYMBOL 83,124,194,192,124,2,22 >F« 

6,124 

4030 SYMBOL 84,254.48,48,48,56,56,5 >CM 

6 

4040 SYMBOL 85,194,194,194,194,226, >HZ 

226,254 

4050 SYMBOL 86,194,194,194,194,226, >6C 

100,56 

4060 SYMBOL 87,194,194,194, 194,242, >HH 

234, 19B 

4070 SYMBOL 88,194,196,104,48,104,2 >SC 

28,226 

4080 SYMBOL 89,194,194,100,48,56,56 >EK 

,56 

4090 SYMBOL 90,254,2,4,24,48,224,25 >CM 

4 

4100 RETURN >EJ 

4110 SYMBOL 65,124,254,198,198,254, >MK 

254,198,198 

4120 SYMBOL 66,248,196,198,254,254, >MU 

198,196,248 

4130 SYMBOL 67,126,254,192,192,192, >MN 

192,254,126 

4140 SYMBOL 68,248,252,198,198,198, >MY 

198,252,248 

4150 SYMBOL 69,254,254,192,240,192, >MQ 

192,254,254 

4160 SYMBOL 70,254,254,192,240,192, >MK 

192,192,192 

4170 SYMBOL 71,254,254,192,192,206, >MU 

198,254,254 , 



4180 SYMBOL 72,198,198,198,254,254, 

198,198,198 

4190 SYMBOL 73,126,126,24,24,24,24, 

126, 126 

420O SYMBOL 74,30,30,12,12,236,236, 

124,124 

4210 SYMBOL 75,98,102,108,120,120,1 

20.108,102 

4220 SYMBOL 76,240, 240,96,96,102,10 

2,126,126 

4230 SYMBOL 77,254,254,214,214,198, 

198,198,198 

4240 SYMBOL 78,102,102,118,110,102, 

102,102,102 

4250 SYMBOL 79,126,126,102,102,102, 

102,126,126 

4260 SYMBOL 80,126,126,102,126,126, 

96,96,96 

4270 SYMBOL 81,254,254,198,198,222, 

220,246,246 

4280 SYMBOL 82,252,102,102,124,120, 

108,102,231 

4290 SYMBOL 83,126,126,96,124,62,0, 

126,124 

43W SYMBOL 84,254,254,56,56,56,56, 

56,124 

4310 SYMBOL 85,102,102,102,102,102, 

102,126,126 

4320 SYMBOL 86,102,102,102,102,102, 

102,60,24 

4330 SYMBOL 87,238,238,238,254,254, 

238,238,198 

4340 SYMBOL 88,102,126,24,24,24,24, 

126, 102 

4350 SYMBOL 89,102,102,36,24,24,24, 

60,60 

4360 SYMBOL 90,126,126,6,12,24,48,1 

26,126 

4370 RETURN 

4380 '***#******#*********** 

4390 » ROUTINE LM » 

4400 » CALL 1,7000 » 

4410 ' #**+*##******##*##**♦* 

4420 DOTA 195,9,112,1,80,5,237,184, 

201 , 33, 63, 246, 17, 63, 254, 205, 3, 1 12, 3 

3,63,238,17,63,246,205,3,112,33,63, 

230,17,63,238,205,3,112,33,63,222,1 

7,63,230,205,3,112,33,63,214,17,63, 

222,205,3,112 

4430 DATA 33,43,206,17,63,214,205,3 

,112,33,63,198,17,63,206,205,3,112, 

33,239,253,17,63,198,205,3,112,201, 

0,0,0 

4440 RESTORE 4420 

4450 FOR 1=47000 TO 47054:READ a: PO 

KE i,a 

.4440 NEXT 



4470 RETURN 


FJ 


4480 TAGOFF 


BJ 


4490 FOR 1=1 TO 21:L0CATE 1,25:PRIN 


>ML 


T"J.":NEXT 




4500 FOR 1=21 TO 1 STEP -lsLOCATE 1 


>IM 


,l:PRINT"t":NEXT 




4510 I» 0,0:BORDER 


>PU 


4520 PEN 1 


■GA 


4530 A*(1>="BRAV0,V0US AVEZ" 


>XT 


4540 A»l2)="DETRUIT TOUS LES" 


>YV 


4550 A«(3)="INTRUDERS'!'" 


>TZ 


4560 M=l 


WF 


4570 Y=6 


>YD 


4580 FOR t=l TO 10 


>LZ 


4590 FOR 1=1 TO LENlflKWl 


>TN 


4600 PEN INT<RND*8>t| 


F"! 


4610 BORDER INT(RND«!5) 


>RE 


4620 LOCATE 2+1, Y 


>LL 


4630 PRINT MID*lAt(M),I,li 


>UV 


4640 SOUND 1,50, 4,7:S0UND 3,10,3,6: 


>0G 


SOUND 2,5,2.5 




4650 NEXT 


LG 


4660 W**llY«Y+l 


>LN 


4670 IF M=4 THEN M=1:Y=6 


RE 


4680 NEXT t 


>XE 


4690 BORDER 


>JK 


47M GOTO 3490 


•NE 


4710 MODE 0:1», 1,24:1». 2,6:1» 0, 


LM 


0: BORDER 




4720 PLOT 50,100, 1 : DRAW 50,370:DRAH 


>TG 


590,370: DRfW 590,100:DRAN 50,100:P 








8:DRA» 46,372,4:DRAH 592,372 




4730 PEN 8 


HA 


4740 LOCATE 4,4:PRINT"IL VOUS RESTE 


BD 



4750 PEN 7 >HB 

4760 FOR X=B TO 5+(VIE»2.5) STEP 2 ;ZR 
4770 LOCATE X,10:PRINT CHR»(240) >AL 
47BO NEXT >MA 

4790 IF VIE=2 THEN LOCATE 12,10:PRI >BT 
NT CHR«(238ICHR$(239):L0CATE 12,9:P 
RINT CHR$(236)CHR*(237) 
4800 IF VIE=1 THEN LOCATE 8,10:PRIN >ED 
T CHR»(240I" "CHR*(238)CHR$(239);" 
■;CHR»(238)CHR»(239):L0CATE 10,9:PR 
INT CHR*(236)CHR*(237) - "CHR»(236IC 
HR*(237) 

4810 WHILE INKEY*C> H ":WEND >W 

4820 CALL &BB06 >UH 

4B30 RETURN >FJ 

4840 ' **** #*+ * * >YJ 

4850 ' ♦ ♦ h ♦ >YK 

4860 ' »» ♦ t»»* >ZA 

4870 ' » » * ♦» >ZB 

4880 ' ♦ * » * >ZC 

4890 ' * »» * * >ZD# 
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SURFACE 



Emmanuel GUILLARD 



Calculer la surface d'un carré 
ou d'un rectangle... Facile ! 
Mais celle d'un trapèze, d'un 
losange ou, mieux, d'une 
ellipse, cela vous dirait ? Pas 
vraiment, n'est-ce pas ? 
Surface vous permet de 
calculer tout cela en deux 
temps, trois mouvements avec 
formules à l'appui. 
Si vous avez du mal en math 
et que votre prochaine interro 
approche, saisissez vite ce 
programme qui vous fera 
réviser vos points faibles. 
Initialement conçu avec son 
complément : Volume (qui 
sera publié dans le prochain 
hors série), Surface est 
parfaitement utilisable seul. 
Alors, bonne révision... 




10 ON ERROR 60T0 4890 
20 ' 

SURFACES 



MENU PRINCIPAL 



:SU*=CHR*(24I:SURF=1:60SUB 



30 
40 
50 
60 ' 
70 MODE 
4850 

80 LCCATE 26,6:PRINT SU»; 'CARRE - ! SU >PZ 
*;SPC(10);SU1$;"LOSANGE";SU1$ 
90 LCCATE 26,8:PRINT SU2«; "RECTANGL >KT 
E";SU2*;SPC (6) ;SU3$; "PARALLELOGRAMM 
£";SU3* 

100 LOCATE 26,10:PRINT SU4$; "TRIftNG >YF 
LE";SU4»;SPC(7);SU5*i"TRAPEZE";SU5» 

110 LXATE 26,12:PRINT SU6»; "CERCLE >XE 

';SU6*:SPC(9liSU7»;"COURONNE"iSU7* 

120 LOCATE 26,14:PRINT SU8*;"SECTEU >PL 

R";SU8«;SPC<8>;SU9»; "SEGMENT CIRCUL 

AIRE";SU9» 

130 LOCATE 26,16:PRINT SU10*;"ELLIP >N0 

SE - ;SU10» 

140 ' >RF 

150 ' CHOIX >R6 

160 ' >RH 



170 IF INKEY(8)=0 THEN SURF=SURF-1: >L6 

GOTO 240 

180 IF INKEY(0)=0 THEN SURF=SURF-2: >LA 

GOTO 240 

190 IF INKEY(1)=0 THEN SURF=SURF+1: >LA 

GOTO 250 

200 IF INKEY(2>=0 THEN SURF=SURF+2: >LU 

GOTO 250 

210 IF INKEY(9)=0 THEN RUN"SURVDL" >CC 

' k7 

220 IF INKEYU8)=0 THEN ON SURF G0S >FH 

U8 390,790,1230,1610,2090,2390,2740 
,3090,3250,3590,4070:COT0 B0 
230 GOTO 170 >YK 

240 IF SURF<1 THEN SURF=11 >VK 

250 IF SURFM1 THEN SURF=1 >VN 

260 ON SURF G0SUB 270,280,290,300,3 >PB 
10, 320, 330, 340, 350, 360, 370: GOTO 80 
270 SU*=CHR*(24):SU1»="":SU2»="":SU >CF 
10»="":SU9«="":RETURN 
280 SU1*=CHR*(24):SU»="":SU2*="":SU >CA 
3*="':SU10«="":RETURN 
290 SU2*=CHR»(24):SU*="":SU1*="":SU >BA 
3*="":SU4*="":RETURN 
,300 SU3$=CHR$(24):SU1»="":SU2*="":S >CB 



U4«="":SU5*="":RETURN 

310 SU4i=CHR$(24):SU2«="":SU3«="":S ;CH 

U5»="":SU6*="":RETURN 

320 SU5»=CHR*(24):SU3»="":SU4»="":S >CP 

U6*="":SU7«="":RETURN 

330 SU6»=CHR*(24):SU4*="":SU5*="":S >CH 

U7»="":SU8*="":RETURN 

340 SU7*=CHR»(24):SU5«="":SU6»="":S >CC 

U8*="":SU9*="":RETURN 

350 SU8$=CHR*(24):SU6*="":SU7»="":S >BE 

U9»="":SU10$="":RETURN 

360 SU9$=CHR*(24):SU7$="":SUB»="":S >EH 

U10$="":SU11*="":RETURN 

370 SU10t=CHR*(24):SUS="":SU8t="":S >BH 

U9«="":SU$="":RETURN 

380 ' carre >TB 

390 MODE 2:G0SUB 4670:GOSUB 4860 >U> 

400 PLOT 320,200,13:DRAUR -100,0:DR >PL 

AWR 0, 100:DRAWR 10O,0iDRAWR 0,-100 

410 PLOT 220,20O:DRAMR -17,0:DRAKR >UQ 

0,100:DRAWR 17,0 

420 PLOT 203,2O0:DRAHR -5,10:PL0TR >MQ 

11,0:DRAWR -5,-10:PL0T 203,3O0:DRAW 

R -5,-10:PL0TR 11,0:DRANR -5,10 

430 PLOT 220,200:DRAHR 0,-17:DRANR >UT 

100,0:DRAWR 0,17 
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440 PLOT 220, 183: DRAW 10,5:PL0Tfi 
,-ll:DRftWR -10,5:PL0T 320, 183:DRAWR 
-10,5:PLOTR 0,-lItORAHR 10,5 
450 PLOT 220, 200: DRAW 100,100 
460 LOCATE 26,10:PRINT "a":LOCATE 3 
4,14:PRINT "a":LOCATE 34,10:PRINT " 



470 fol*=CHR*(24):fo2*="":fo3*="";f >HT 

o4i="" 

480 fo=l >VH 

490 LOCATE #3,59,6:PRINT #3, fol»; 'A >XV 

=a";CHR$(255);fol* 

500 LOCATE #3,59, 10:PRINT #3,fo2»:" >NR 

a» A"jfo2* 

510 LOCATE *3,59,14:PRINT «S,^*; 1 >PK 

e=a 2";fo3» 

520 LOCATE #3,59, 18:PRINT #3,fo4«;" >NA 

u=4a"ïfo4* 

530 ' radicaux ;RJ 

540 PLOT 480,255, 1:DRAUR B,-14:DRAtl >KT 

R 8, 14:DRAMR 16,0:PL0T 488,192:DRAW 

R B,-14:DRAW 8,14:DRAW 16,0 

550 IF INKEY(1B)=0 THEN 650 

560 IF MEY(47)=0 THEN 590 

570 IF INKEY(9)=0 THEN CLS:RETURN 

580 SOTO 550 

590 *o=fo+l:IF fo>4 THEN *o=l 

600 ON <o GOSUB 610,620.630, 640:B0T 

490 

610 *ol*=CHR$(24):f-o2t=' 

o4*="":RETURN 

620 fo2*=CHR*(24):fol*=' 

o4«="":RETURN 

630 fo3»=CHR*(24>:fol*="":*o2$="":f >RY 

o4*=":RETURN 

640 fo4*=CHR*(24):fol*="":lo2M"":< >RZ 

o3»="":RETURN 

650 CALL 4BB03:CLS#1:ÛN fo GOSUB 66 >N¥ 

0,690, 750, 720 :CLS#1: GOSUB 4770:G0SU 

B 4860: GOTO 470 

660 tab 1=2: tab2=2: GOSUB 4330 

670 aire=R0UND(cor2,4):LDCATE #1,2 

,6:PRINT#1, "L'aire est de :":PRINT 

#l,aire;" o«";CHR»l255>;" ." 

680 CALL (<BB06:RETURN 

690 tabl=2:tab2=2:6DSUB 4640 

700 co=RDUND(SQR(aire),4):LCCATE #1 

,2,6:PRlNT#l,"Le cote est de :":PRI 

NT #l,co;" en ." 

710 CALL iBB06:RETURN 

720 tabl=2:tab2=2:G0SUB 4330 

730 per=R0UND(col*4):L0CATE #1,2,6; 

PRINT#l,"Le peruetre est'iPRINT «1 

," de :";per;" ci ." 

740 CALL l<BB06:RETURN >QV 

750 tabl=2:tab2=2:G0SUB 4330 >tlV 

760 dia=R0UND(col*S9Rl2),4):L0CATE >UU 



:(o3*="":f ,'R« 



:fo3»="":f >RX 



;TC 



QB 
>YE 



>gv 

>J6 



•l,2,6:PRINT#l,"La diagonale est':P ' 
RINT #1," de :";dia:" en ." 
770 CALL 4BB06:RETURN >QB 

7B0 ' losange >TF 

790 MODE 2: GOSUB 4670: GOSUB 4B60 )ZH 
800 PLOT 320,200, 13:DRAWR -100,0:DR ,'Rk 
AW 30,B7:DRAW 100,0:DRAW -30,-87 



810 PLOT 220,200:DRAW 0,-17:DRAWR 
100,0: DRAW 0,17 

820 PLOT 220,200:DRAW -13,4:DRANR 
30, 87: DRAW 13,-4 

830 PLOT 220,183:DRAW 10,5:PL0TR 
,-ll:DRAW -10,5:PL0T 320,1B3;DRAW 
-10,5:PL0TR 0,-11: DRAWR 10,5 
840 PLOT 207,204:DRAW -2,B:M0VER 2 
,-8:DRAW 8,4:FL0T 237,291:DRAW 2, 
-B:HOVER -2, 8: DRAW -8,-4 
850 PLOT 280,200:DRAW 0,87:M0VER 
,-79:DRAW -8,0:DRAW 0,-8 
860 LOCATE 28,10:PRINT "a": LOCATE 3 
4,14:PRINT "a":LOCATE 36,10:PRINT " 
h" 

B70 ORIGIN 220, 200: DEG: PLOT 2O,O:F0 
R a7.=0 TO 70 STEP 10: DRAW 2ûtC0S(a7. 
>,20*SIN(aX):NEXT:0RI6IN 0,0 
B80 LOCATE 30,12:PRINT CHR$(176) 

890 fol*=CHR»(24):fo2*="":fo3*= f 

o4»="":fo=l 

900 LOCATE #3,59,6:PR1NT #3,tol$;"A 

=a.h"îfol» 

910 LOCATE #3,59,10:PR1NT »3,fo2*;" 

A=a";CHR*(255);"sin";CHR»fl76IHo2« 



-HP 



•PQ 



920 LOCATE #3,59,14:PR1NT #3,fo3»;" 

a=A/h";to3» 

930 LOCATE #3,59,18:PRINT #3,fo4»;" 

u=4a";T-o4* 

940 IF INKEY(18)=0 THEN 1040 

950 IF INKEV(47)=0 THEN 980 

960 IF INKEY(9)=0 THEN CLS:RETURN 

970 GOTO 940 

980 fo=lo+l:IF fo>4 THEN <o=l 

990 ON <o GOSUB 1000,1010,1020,1030 

:GOTO 900 

1000 fol«=CHR*(24>:f-o2t="":<o3*="": >TK 

*o4$=":RETURN 

1O10 <o2»=CHR*(24):*ol*="":fo3»="": >TL 

(o4$="":RETURN 

1020 fo3*=CHR$(24):<ol»="":fo2*="": >Th 

fo4»="":RETURN 

1030 fo4*=CHR»(24):fol»="":Fo2*="": >TN 

To3»="":RETURN 

1040 CALL iBB03:CLS#l:0N fo GOSUB 1 >VL 

050, 1100, 1170, 1140:CLS#1:G0SUB 4770 

:BOSUB 4860: BOTO 890 

1050 tabl=2:tab2=2:G0SUB 4330 >XL 



'1060 tabl=2:tab2=8:G0SUB 4460 >XY 

1070 IF haut'col THEN LOCATE #1,1,1 >HM 
:PRINT#1,CHR»(7):G0SUB 4460 
1080 aire=R0UND(co»haut,4>:L0CATE # >ZR 
1. 2, 10:PRINT#1, "L'aire est de :":PR 
INT #l,aire;" c«";CHR»(255l;" ■" 
1090 CALL 4BB06:RETURN )RM 

1100 tabl=2:tab2=2:G0SUB 4330 >X6 

1110 tabl=2:tab2=B:60SUB 4420 >XP 

1120 aire=R0UND<col'2»SIN(angl),4): >NR 
LOCATE #1,2,10:PRINT#1,"L aire est 
de :":PRINT #l,aire;" c«":CHR*(255) 

1130 CALL !iBB06:RETURN ,.RG 

1140 tabl=2:tab2=2:60SUB 4330 >XL 

1150 per=R0UNDlcol*4):LQCATE #1,2,6 >KU 
:PRINT#l,"Le pen«etre est":PRINT # 
1," de :";per;" cm ." 

1160 CALL 4BB06:RETURN >RK 

1170 tabl=2:tab2=2:G0SUB 4640 >XU 

1180 tabl=2:tab2=8:G0SUB 4460 >XB 

1190 IF haut>SQR(aire) THEN LOCATE >0J 
#1,1,1:PRINT#1,CHR*(7):G0T0 1180 

1200 co=R0UND(aire/haut,4):L0CATE • >BM 
1,2, 10:PRINT#l,"Le cote est de :":P 
RINT #l,co;" cm ." 

1210 CALL &BB06:RETURN >RF 

1220 rectangle ;>XH 

1230 MODE 2: GOSUB 4670: GOSUB 4860 >fl* 

1240 PLOT 420,200,13:DRAW -200,0:D >QF 
RAW 0,100:DRAWR 200,0:DRAW 0,-100 

1250 PLOT 220,200:DRANR -17,0:DRAW ,'VN 

0,100:DRAW 17,0 
1260 PLOT 203,200:DRAUR -5,10:PL0TR ,'PE 

U , 0: DftAWfl -5,-10:PL0T 203,300:DRA 
W -5,-tOlPLOTR 11,0:DRAW -5,10 
1270 PLOT 220, 200: DRAW 0,-17: DRAW >VR 

200,0:DRAW 0,17 

1280 PLOT 220,183:DRAW 10,5:PL0TR >LR 
0,-ll;DRAW -10,5:PL0T 420,183:DRAW 
R -10,5:PL0TR 0,-ll:DRAW 10,5 
1290 PLOT 220,200:DRAW 200,100 >XD 
1300 LOCATE 26,10:PRINT "b":LOCATE >NX 
40,14:PRINT "a":LDCATE 40,9:PRINT " 
e" 

1310 <ol*=CHR*(24):fo2*="":fo3*="" >AY 
1320 fo=l >DH 

1330 LOCATE #3,59,8:PRINT #3, fol*:' >PA 
A=a.b";<ol» 

1340 LOCATE #3,59,13:PRINT #3,fo2*i >WA 
■e= a":CHR»(255):"tb";CHR»(255)jfo 
2« 

1350 LOCATE #3,59,18:PRINT #3,fo3»; >TB 
"u=2a+2b";fo3« 

1360 ' radicaux >YC 

1370 PLOT 480, 208: DRAW 8, -14: DRAW >UA 
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B, 14: DRAW 50,0 

1380 IF INKEY(18I=0 THEN 1470 >WL 
1390 IF INKEY(47)=0 THEN 1420 >W 
1400 IF INKEY(9)=0 THEN CLS:RETURN >CJ 
1410 B0T0 1380 >MF 

1420 foMo+1: IF fo>3 THEN f 0=1 >XD 
1430 ON fo BOSUB 1440,1450, 1460: BOT >BQ 
1330 

1440 Foli=CHR$(24):fo2»="":fo3*="": >JG 
RETURN 

1450 fo2»=CHR*(24):tol*="":fo3*="": >JH 
RETURN 

1460 tn3*=CHR»(24):fol«="":fo2*="": ,>JJ 
RETURN 

1470 CALL &BB03:CLSI1:0N f£l BOSUB 1 >PM 
480, 1520, 1560: CLSI1 : BOSUB 4770: 60SU 
B 4860:6010 1310 

1480 tabl=2:tab2=2:G05UB 4330 ,'XU 
1490 tabl=2:tab2=6:60SUB 4360 >XC 
1500 aire=R0UND(col»co2,4):L0CATE I >XK 
1,2,8:PRINTI1, "L'aire est de :":PRI 
NT Kl, aire;" cm";CHR*(255)l" ." 
1510 CALL 4BB06: RETURN >RJ 

1520 tabl=2:tab2=2:G0SUB 4330 >XN 
1530 tabl=2:tab2=6:G0SUB 4360 >XX 
1540 dia=ROUND(SQR(cor2H-co2'"2),4): >JP 
LOCATE #l,2,10:PRINTIl,"La diagonal 
e est":PRINT 11," de :";dia;" c« . 

1550 CALL &BB06: RETURN >RN 

1560 tab 1=2: tab2=2: GOSUB 4330 >XT 
1570 tabl=2:tab2=6:60SUB 4360 >XB 
1580 per=R0UND(col*2«co2*2,4):L0CflT >ZC 
E »l,2,10:PRINTIl,"Le permetre est 
•:PRINT 11." de :":per;" :» ." 
1590 CALL MB06: RETURN >RT 

1600 ' PARALLELOGRAMME >XK 

1610 MODE 2:G0SUB 4670: BOSUB 4860 >AZ 
1620 PLOT 370,200, 13:DRAW -150,0:0 >TR 
RAW 30,87:DRAW 150,0:DRWIR -30,-8 
7 
1630 PLOT 220,200:DRAW 0,-17:DRAW ,>VH 

150,0:DRAW 0,17 
1640 PLOT 220,200:DRAW -13,4:DRAWR >HH 

30,B7:DRAW 13,-4 

1650 PLOT 220,1B3:DRAW 10,5:PL0TR >LX 
0,-ll:DRAHR -10,5:PL0T 370,183:DRAW 
R -10,5:F10TR 0,-U:DRAW 10,5 
1660 PLOT 207,204:DRAW -2,8:MOVER >EX 
2,-B:DRAW 8,4:PLOT 237,29l:DRAW 2 
,-B:MOVER -2,B:DRAW -8,-4 
1670 PLOT 320,200: DRAW 0,87:hWER >GH 
0,-79: DRAW -8,0: DRAW 0,-8 
1680 LOCATE 2B,10:PRINT V:L0CATE >YM 
38,14:PRINT "a":LOCATE 39,12:PRINT 
"h" 
1690 0RI6IN 220, 200: DES: PLOT 20,0:F >JF 



OR aï=0 TO 70 STEP 10:DRAkl 20*C0S(a 

ï),20»SIN(a'/.):NEXT:ORIGIN 0,0 

1700 LOCATE 30,12:PRINT CHR«(176):P 

LOT 220,200:DRAW 1BO,87:MOVER -150 

,0:DRAW 120, -B7: LOCATE 34,9:PRINT 

"e2":L0CATE 45,9:PRINT "el" 

1710 fol*=CHR«(24):fo2$=":fa3*: 

fo4*="":*o=l 

1720 LOCATE 13,59, 6:PRINT 13, fol*;" 

A=a.h";fol* 

1730 LOCATE 13,59, lOlPRIMT «3, fo2«: 

"A=a.b.sin":CHR*<176);fa2$ 

1740 LOCATE 13,59, 14:PRINT *3,fo3»; 

"el« ia*h.cot";CHRS(176);")"iCHR«( 

255);"+h";CHR*(255)|fo3* 

1750 LOCATE #3,59,18:PRINT !3,fo4$; 

"e2= [a-h.cot";CHR»(176);")";CHR»( 

255) i "+h" i CHR$ (255) ; <o4* 

1760 ' radicaui: 

1770 PLOT 488,128,1:DRAW 8,-14:DRA 

m B,14:DRAW 120,0:PLQT 48B,192:DR 

AWR B,-14:DRAW B,14:DRAWR 120,0 

1780 IF INKEY(18)=0 THEN 1880 

1790 IF INKEY(47)=0 THEN 1820 

1800 IF INKEY(9>=0 THEN CLS: RETURN 

1810 GOTO 1780 

1820 fo=fo+l:IF fo>4 THEN fo=l 

1B30 ON fo GOSUB 1840,1850,1860,187 

0:GOTO 1720 

1840 ( ol»=CHR* (24) : f n2$=" " : fo3*=" " : 

fo4»="": RETURN 

1850 f o2«=CHR* (24) : f ol»="" : f o3*=" " : 

fo4«="": RETURN 

1860 f o3*=CHR* (24) : f ol*="" : f o2*= 

fo4«="": RETURN 

1870 fo4$=CHR*(24):fol*="":fo2»="": 

fo3»=*":RETURN 

1880 CALL &BB03:CLSI1:0N fo GOSUB 1 

890, 1930, 1 980,2030: CLSI1:G0SUB 4770 

:GOSUB 4B6O:GOT0 1710 

1890 tabl=2:tab2=2:G0SU6 4330 

1900 tabl=2:tab2=8:G0SUB 4460 

1910 aire=R0UND(col*haut,4):LQCATE 

11, 2,10:PRINTI1, "L'aire est de :":P 

RINT 11, aire:" cn";CHR*(255);" ." 

1920 CALL &BB06: RETURN 

1930 tabl=2:tab2=2:G0SUB 4330 

1940 tabl=2:tab2=6:G0SUB 4360 

1950 tabl=2:tab2=10:G0SUB 4420 

1960 aire=ROUND(col*co2*SIN(anql>,4 

):LOCATE I1,2,14:PRINTI1,"L aire es 

t de :":PRINT 11, aire:" a»";CHR*(25 

5);" ." 

1970 CALL IBB06: RETURN 

1980 tabl=2:tab2=2:SOSUB 4330 

1990 tabl=2:tab2=6:60SUB 4460 

2000 tabl=2:tab2=10:GOSUB 4420 



: >PZ 



>FE 



.FO 



>TZ 



2010 dia=ROUND(SQR((col+haut-H/(TAN >GH 
(angl)))''2+haut*2),4):L0CATE 11,2,1 
2:PRINTIl,"La diagonale el est":PRI 
NT 11," de :";dia;" a ." 
2020 CALL 4BB06: RETURN >RF 

2030 tabl=2:tab2=2:60SUB 4330 >XK 

2040 tab 1=2: tab2=6: GOSUB 4460 >KV 

2050 tabl=2:tab2=10:G0SUB 4420 >YL 

2060 dia=ROUND(SQR((col-haut+l/(TAN >GR 
(angl))) A 2thaut"2),4):L0CATE 11,2,1 
2:PRINTIl,"La diagonale e2 est":PRI 
NT 11," de :"idia;" c» ." 
2070 CALL lcBB06: RETURN )RL 

2080 ' triangle >YC 

2090 MODE 2:G0SUB 4670:60SUB 4860 >AC 
2100 PLOT 320,200, 13:DRAW -100,0:0 >BT 
RAHR 60,87:DRAWR 40,-87 
2110 PLOT 220,200:DRAW 0,-17:DRAW ,'VJ 

100,0:DRAW 0,17 
2120 PLOT 220,183:DRAW 10,5:PL0TR >LJ 
0,-ll:DRAW -10,5:PL0T 320, IB3:DRAM 
R -10,5:PL0TR 0,-U:DRAW 10,5 
2130 PLOT 320,200:DRAW 14, 8| DRAW >XQ 
-40,87:DRAW -14, -B 

2140 PLOT 334,208:DRAW 0,8:M0VER >CK 
,-8:DRAW -B,4:PL0T 294,295:DRAW 
,-B:M0VER 0,8:DRAW 8,-4 
2150 DEG:PL0T 312,218:F0R t=180 TO >76 
250 STEP 10:DRAWR 4»C0S(f),4*5IN(f> 
:NEXT 

2160 PLOT 220,200:DRAW 0,87:DRAW >PT 
60,0:M0VER -60,0:DRAW -5,-5:PL0TR 
10,0:DRAW -5,5:M0VER 0,-B2:DRAWR 5 
,5:PL0TR -10,0:DRAW 5,-5 
2170 LOCATE 28, 10:PRINT"h":L0CATE 3 >RG 
4,14:PRINT"a":L0CATE 40,10:PRINT"b" 
:LOCATE 37,12:PRINT CHR»(177>; 
2180 fol*=CHR«(24>:fo2*="":fo=l >YI 

2190 LOCATE 13,59, 6:PRINT »3,fol$;" >UE 
A=(a.h)/2";fol$ 

2200 LOCATE 13,59, 14:PRINT t3,fo2»; >FQ 
H h=b.sin";CHR*(177)jfo2* 
2210 IF INKEY(18>=0 THEN 2290 >WE 

2220 IF INKEY(47)=0 THEN 2250 >W> 

2230 IF INKEY(9)=0 THEN CLS:RETURN >CL 
2240 GOTO 2210 >MA 

2250 fo=fo+l: IF fo>2 THEN f 0=1 >XE 

2260 ON (o GOSUB 2270,2280:60TO 219 >CM 


2270 fol*=CHR«(24):fo2*="":fo3i="": >TH 
fo4»="":RETURN 

2280 fo2*=CHR$(24):fol*="":fo3»="": >TX 
fo4»="": RETURN 

2290 CALL &BB03:CLSI1:0N fo GOSUB 2 >GN 
300,2340:CLStl:GOSUB 4770:G0SUB 486 
0:60T0 2180 
,2300 tabl=2:tab2=2:60SUB 4330 >XK 
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2310 tabl=2:tab2=8:G0SUB 4460 >XX 
2320 aire=ROUND((col»haut)/2,4):LOC >GK 
ATE #1,2, 10:PRINT#1, "L'aire est de 
:":PRINT il, aire;" c«";CHR*(255);" 

2330 CALL &BB06: RETURN >RK 

2340 tabl=2:tab2=2:G0SUB 4360 >XT 
2350 tab 1=2: tab2=8: GOSUB 4440 >XZ 
2360 haut=R0UND(co2*SIN(angl),4):L0 >WK 
CATE #l,2,10:PRINT#l,"La hauteur es 
t de :":PR1NT ll,haut(" eu." 
2370 CALL &BB06: RETURN >RP 

2380 'TRAPEZE >YF 

2390 MODE 2:G0SUB 4670:G0SUB 4860:P >HJ 
LOT 400,200, 13:DRAIW -150,0:DRAW 2 
0,80:DRAI* 80,0:DRftWR 50,-80 
2400 PLOT 400,200:DRAWR 0,-15:DRAttR ;>XD 
-10,4:hWER 0,-8:DRAWR 10,4:DRAWR 
-150,0:DRA«R 10,4:M0VER 0,-8: DR/*» 
-10,4:DRAWR 0,15 

2410 PLOTR 10,40:DRAHR 115,0:DRAWR >BF 
-10,4:M0VER 0,-B:DRANR 10,4:hWER - 
115,0iDRAWR 10,4:hOVER 0,-8:DRAWR - 
10,4 

2420 FLOT 350,280:DRAWR 0,15: DRAKR ,'WJ 
-10,4:MOVER 0,-8:DRAWR 10,4:DRAWR - 
BO,0:DRAWR 10,4:M0VER 0,-8iDRAWR -1 
0,4:DRAHR 0,-15 

2430 PLOT 350, 280: DRAW» 70,0:DRAWR- >ZD 
4,-10:rMVER 8,0:DRA»R -4,10:DRAWR 
,-80:DRAWR -4,10:hWER 8,0:DRA«R -4 
,-10:DRAW 400,200 

2440 LOCATE 40,7:PRINT "b":LOCATE 4 >FJ 
0,10:PRINT V':LOCATE 40,14:PRINT " 
a":LXATE 53,10:PRINT "h" 
2450 fnl$=CHR$(24):<o2$="":fo3*="" >AE 
2460 fo=l >ED 

2470 LOCATE #3,59,B:PRINT #3, toi»;" >YT 
A=((a+b)/2).h";fol* 

2480 LOCATE #3,59,13:PRINT #3,fo2»; >QU 
"A=i.h";fo2* 

2490 LOCATE t3,59,18:PRlNT #3,(o3»; >VB 
"«=(a+b)/2";<o3« 

2500 IF INKEY(1B)=0 THEN 2590 ;>». 
2510 IF INKEY(47)=0 TIEN 2540 >WH 
2520 IF INKEY(9)=0 THEN CLS:RETURN >CN 
2530 GOTO 2500 >ME 

2540 fo=fo-H :1F (o>3 THEN fo=l >XH 
2550 ON fo GOSUB 2560,2570,2580:60T >GP 
2470 

2560 fol*=CHR«(24):fo2*=" H :Fo3*="": >JL 
RETURN 

2570 fo2»=CHR»(24):fol*="":fo3*="": >JN 
RETURN 

2580 fo3»=CHR»(24):fol*="":fo2»="": >JN 
RETURN 
2590 CALL iBB03:CLS#l:0N Fo GOSUB 2 >PD 



600, 2650, 2690: CLStl : GOSUB 4770: GOSU 

B 4860:G0T0 2450 

2600 tabl=2:tab2=2: GOSUB 4330 

2610 tabl=2:tab2=6:G0SUB 4360 

2620 tabl=2:tab2=10:G0SUB 4460 

2630 AIRE=ROUND(((col+co2)/2!»haut, 

4):L0CATE «1, 2, 14:PRINTI1, "L'aire e 

st de :":PRINT »l,airej" c«";CHR*(2 

55);" ." 

2640 CALL 4BB06: RETURN 

2650 tabl=2:tab2=2: GOSUB 4390 

2660 tabl=2:tib2=8:G0SUB 4460 

2670 AIRE=R0UND((lol»haut),4):L0CAT 

E #1, 2, 12:PRINTtl, "L'aire est de :" 

:PRINT #l,aire;" c»";CHR*<255>;" ." 

2680 CALL Î.BB06: RETURN 
2690 tabl=2:tab2=2:G0SUB 4330 
2700 tabl=2:tab2=8:G0SUB 4360 
2710 «ioy=(col+co2)/2:L0CATE #1,2,12 
:PRINT#l,"La longueur « est de :":P 
RINT #l,«oy;" cm." 
2720 CALL !tBB06: RETURN 
2730 ' cercle 

2740 MODE 2:G0SUB 4670:G0SUB 4860 
2750 DEG:PLOT 380, 200: FOR Fï=0 TO 3 
60 STEP 10:DRAH 320+60*C0S(F7.),2OO* 
60tSIN(FH:NEXT 
2760 PLOT 320,200:DRAW -60,0 
2770 PLOT 320,260:DRAWR 80,0:DRAWR 
4,-10:M0VER -8,0:DRAHR 4,10:DRAWR 
,-120:DRAWR 4,10:MOVER -8,0:DRA«R 4 
,-10:DRAN 320,140 

27S0 LOCATE 37,13:PRINT "r":LOCATE 
51,13:PRINT "d" 

2790 *ol«=CHR*(24):fo2»="":<o3*=": 
Fo4*="":fo=l 

2800 LOCATE #3,59,6:PRINT #3,fol»;" 
A=(";CHR*UB4);".d";CHR«(255);")/4" 
;Fol» 

2810 LOCATE #3,59,10:PRINT #3,fo2»; 
"A=";CHR«(184);".r";CHR»(255);Fo2* 
2820 LOCATE #3,59,14:PRINT #3,fo3*; 
■A=0.785»d";CHR»(255) ;fo3* 
2830 LOCATE #3,59,1B:PRINT #3,fo4»; 
"u=";CHR«U84l;".d";fo4» 
2840 IF INKEY(18>=0 THEN 2940 
2850 IF INKEY(47)=0 THEN 2880 
2860 IF INKEY(9)=0 THEN CLS:RETURN 
2870 GOTO 2840 

2880 fo=fo+l:IF fo>4 THEN (o=l 
2B90 ON fo GOSUB 2900,2910,2920,293 
0:SOTO 2800 

2900 F ol*=CHR» (24) : f o2»=" " : f o3«=" ■ : 
fo4*="": RETURN 

2910 Fa2*=CHR«(24):fol*="":<o3«=" - : 
,fo4*="": RETURN 



^2920 Fo3*=CHR*(24l:Fol»="":Fo2«="": 
to4*=": RETURN 

2930 fo4»=CHR«(24):«ol»="":fo2»="": 
<o3»="":RETURN 

2940 CALL 4BB03:CLS#1:0N <o 60SUB 2 
950, 2990, 3020, 3050: CLStl : GOSUB 4770 
:GDSUB 4860:G0T0 2790 
2950 tabl=2:tab2=2: GOSUB 4540 
2960 aire=R0UND((PI*d2 A 2)/4,4> 
2970 LOCATE #1, 2, 6:PRINT#1, "L'aire 
est de :":PRINT #i,aire;" cit";CHR*( 
255);" ." 

2980 CALL MIB06: RETURN 
2990 tab 1=2: tab2=2: GOSUB 4480 
3000 aire=ROUND<(PI»ra"2),4):L0CATE 
#1,2,6:PRINT»1, "L'aire est de :":P 
RINT #l,aire;" c«";CHR»<255);" ." 
3010 CALL dBB06: RETURN 
3020 tabl=2:tâb2=2:S0SUB 4540 
3030 aire=ROUND( (0. 785*D2' 2) , 4) : LOC 
ATE #1,2,6:PRINT#1,"L aire est de : 
":PRINT #l,aire;" cm" ;CHR*<255) ; " . 



RL 



>XA 
>ZC 

H 



>RX 
>XH 
>AT 



>RF 
>XN 

■EE 



3040 CALL Î.BB06: RETURN 
3050 tabl=2:tab2=2:G0SUB 4540 
3060 per=R0UND(PI»D2,4):L0CATE #1,2 
,6:PRINT#l,"Le pernetre est":PRINT 

#1," de :":PRINT #l,per;" cm ." 
3070 CALL &BB06: RETURN 
3080 ' couronne 

3090 MODE 2:60SUB 4670: GOSUB 4860 
3100 DEG:PLOT 380,2O0:F0R F7.=0 TO 3 
60: PLOT 320+60«C0S ( F7. ) , 200*60*S IN ( F 
ïllDRAW -10*C0S(F7.) ,-lWSIN<RH :NE 
XT 

3110 PLOT 320,260:DRA# BO,0:DRAWR 
4,-10:M0VER -8,0:DRAKR 4,10:DRAWR 
,-120:DRAHR 4.10:M0VER -8,0:DRAWR 4 
,-10:DRAH 320,140 
3120 PLOT 320,250:DRAUR -80,0:DRAWR 

4,-10:M0VER -8,0:DRAWR 4,10:DRAWR 
0,-100:DRAWR 4,10:M00ER -fl,0:DRAWR 
4,-10:DRAN 320,150 
3130 LOCATE 30,13:PRINT "d":LOCATE 
50,13:PRINT"D" 

3140 LOCATE #3,59,12:F'RINT #3,CHR$( 
24);"A=(";CHR*(184);'74).(D";CHRs<2 
55>;"-d";CHM<255);")";CHR«(24) 
3150 IF INKEY(18)=0 THEN 3180 
3160 IF INKEY(9)=0 THEN CLS:RETURN 
3170 GOTO 3150 

3180 CALL !,BB03:CLS#l:tabl=2:tab2=2 
: GOSUB 4540 

3190 tabl=2:tab2=6:G0SUB 4510 
3200 IF d2>dl THEN LXATE #1,1,1:PR 
INT CHR*(7):G0T0 3180 
,3210 aire=R0UND((PI/4)t(dl'2-d2 A 2), 



>RJ 
>XR 



RM 
>YD 

AD 

>ZA 



m 

>CP 
MH 
>PU 

>XY 

;ZG 
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m 



4) 

3220 LOCATE 11, 2, 10:PRIMTtl. "L'aire >LE 
est de :":PRINT 11, aire;" c«";CHR» 
(255);" ." 

3230 CALL dBB06:CLS*l:60SUB 477O:S0 >WH 
SUB 4860:GOT0 3140 

3240 'secteur >VB 

3250 MODE 2:S0SUB 4670:60SUB 4860 >AB 
3260 DEG:PL0T 380,200:F0R F7XI TO 3 >MA 
60 STEP 10:DRAW 320+60*C0S(F7.),200+ 
60*SIN(F7.):NEXT 

3270 FOR Fï=45 TO 135:PL0T 320,200: >NB 
DRAWR 6O«C0S(F7.) ,60*SIN(F7.) iNEXt 
32B0 PLOT 320+60*COS(160),200+60»SI >C0 
N(160):DRAW 320+60«C0S(340), 200+60* 
SINI340) 

3290 PLOT 320+60+COSI45),200+60«SIN >fH 
(45):DRAW 320+120*COS(45>,200+120«S 
IN(45) 

3300 PLOT 320+80«COS(45),200+80»SIN >Ffl 
(45) 

3310 FOR F7.=45 TO 135 STEP lÛlDRAW >8K 
320+80tC0S(F7.) ,200+80*SIN(F7.i :NEXT 
3320 PLOT 320+120»C0S(45),200+120*S >HD 
IN(45) 

3330 FOR F£=45 TO 135 STEP 10: DRAW >TR 
320+120*COS(FT.),200+120»SIN(F7.):NEX 
T 

3340 DRAW 320+60iC0SU35).200+60*SI >6F 
N(45l 

3350 LOCATE 41,5:PRINT CHR»U76) >ZH 
3360 LOCATE 41,8:PRINT "b" ;>UJ 
3370 LOCATE 45,14:PRINT "d" >VK 
3380 fol*=CHR«(24):*o2*="":fo=l >YC 
3390 LOCATE I3,59,8:PRINT 13, fol*;" >UJ 
fl=(b.d)/4";-fal* 

3400 LOCATE 13,59, 16:PRINT l3,*o2«; >EK 
"b=d.";CHR*U84);".(";CHR*(176);"/3 
60)"i*o2* 

3410 IF INKEY(1S)=0 THEN 3490 >WL 
3420 IF INKEY(47)a) THEN 3450 M 
3430 IF INKEY(9)=0 THEN CLS:RETURN >CP 
3440 BOTO 3410 >MG 

3450 fo=fo+l: IF fo>2 THEN fo=l >XH 
3460 ON «a BOSUB 3470, 34BO: GOTO 339 >CA 

3470 tol*=CHR»(24):fo2«="":RETURN >BM 

3480 fo2*=CHR$(24):*ol»= RETURN >BN 

3490 CALL !cBB03:CLSIl:0N fo BOSUB 3 >SB 
500,3540:CLSI1:S0SUB 4770:G0SUB 486 
0:SOTO 3380 

3500 tabl=2:tab2=2:G0SUB 4540 >XR 
3510 tabl=2:tab2=6:60SUB 4570 >XA 
3520 aire=R0UND((d2»arc)/4,4):LXAT ;>DF 
E 11,2, 10:PRINTI1, "L'aire est de :" 
:PRINT 11, aire;" c»";CHR*(255);" ." 



3530 CALL &BB06: RETURN >RN' 

3540 tabl=2:tab2=2:G0SUB 4540 >XW 

3550 tabl=2:tab2=6:G0SUB 4420 >XY 

3560 arc=R0UND(ld2»PI)«(an 9 l/360),4 >VR 

):LOCATE ll,2,10:PRINT #1, "L'arc b 

i une longueur":PRINT 11," de :";ar 

c;" en." 

3570 CALL 1BB06: RETURN >RT 

3580 ' segment circulaire >YJ 

3590 MODE 2: BOSUB 4670: BOSUB 4860 >AJ 

3600 DE6:PL0T 380,200:FOR Fï=0 TO 3 >LT 

60 STEP 5: DRAW 32O+60»C0S(F7.), 200+6 

0«S1N(F7.):NEXT 

3610 FOR F7.=30 TO 90 STEP 2: PLOT 32 >DN 

0+60«CDS (F7.) , 200+60*SIN (F7.) : DRAW 32 

0+6O4COS ( 1BÛ-FX) . 200+60»SIN ( 180-F7.) 

:NEXT 

3620 PLOT 320+60*C0S(30),200+60*SIN ,>AL 

(30):DRAW 320*120*C0S(30), 200+120*3 

INI30) 

3630 FOR F7.=30 TO 150 STEP 10:DRPlW >QF 

320+80»COS (F7.) , 200+80+SIN (F7.) : NEXT 

3640 PLOT 320+120*C0S(30),200+120«S >BE 

IN (30) 

3650 FOR FX=30 TO 150 STEP 10: DRAW >TK 

320+120*C0S (Fï) , 200+120*SIN(F7.) :NEX 

T 

3660 DRAW 320+60»C05(150),200+60»SI >6B 

NI150) 

3670 PLOT 320+60»COS(30),200+60*SIN >BR 

(30):DRAWR 0,-40:DRAWR -8,4:M0VER 

,-B:DRAWR 8,4:DRAW 320+60«C0S(150), 

160+60»SIN(30):DRAWR B,4:M0VER 0,-8 

:DRAWR -8,4:DRAWR 0,40 

3680 PLOT 380, 200: DRAWR 0,-80: DRAWR ;UY 

-8,4:hWER 0,-8:DRAWR 8, 4: DRAWR -1 
20,0:DRAWR 8,4:hWER 0,-B:DRAWR -B, 
4: DRAW 260,200 

3690 PRINT CHR*(23);CHR»U);:PL0T 3 >PC 
20,260:DRAWR 0,-30:DRAWR -2,4:M0VER 

4,0:DRAWR -2,-4:M0VER 0,30:DRAWR - 
2,-4:M0VER 4,0:DRAWR -2,4 
3700 LOCATE 39,10:PRINT CHR»(24);"h >PR 
■;CHR*(24); 

3710 PRINT CHR»(23);CHR*(0); >WL 
3720 LOCATE 40,13:PRINT "s":LXATE >UC 
40, 18: PRINT "d" 

3730 LOCATE 41,5:PRINT CHR*(176):L0 >YZ 
CATE 41, 8: PRINT "b" 

3740 fol»=CHR$(24):fo2$="":fo3*="": >FK 
fo=l 

3750 LOCATE 13, 59, 6: PRINT 13, fol*;" >9U 
A=((b.d)/4)-" 

3760 LOCATE 13,59, 7:PRINT 13," (s(d >RU 
-2hl/4))";Fol* 

3770 LXATE 13,59, 11:PRINT !3,to2»; >ZG 
"h=ld/2>.(l-cos(";CHR«(176);"/2)P; 



fo2* 

3780 LOCATE 13,59, 16:F*INT l3,fo3*j 

■s=d.sin(";CHR*(176);'72)";fo3* 

3790 IF INKEY(18)=0 THEN 3880 

3800 IF INKEY(47!=0 THEN 3830 

3810 IF INKEY(9>=0 THEN CLS:RETURN 

3E20 BOTO 3790 

3830 fo=fo+l:IF fo>3 THEN Fo=l 

3840 ON fo BOSUB 3850,3840,3870:601 

3750 

3850 tol*=CHR»!24!:*o2J="':to3»="": 

RETURN 

3860 to2*=CHR» (24) : tol*=" " : to3l=" " : 

RETURN 

3870 Ta3»=CHR«(24):fol*="":fo2»- 

RETURN 

3880 CALL !.BB03:CLSI1:0N *0 BOSUB 3 
890, 3970, 4020: CLSI1 : BOSUB 4770: BOSU 
B 486O:60T0 3740 
3890 tabl=2:tab2=2:S0SUB 4540 
3900 tabl=2:tab2=6:G0SUB 4600 
3910 tabl=2:tab2=10:G0SUB 4460: IF h 
aut>d2 THEN LOCATE ll,l,l:PRINT CHR 
*(7):B0T0 3910 

3920 tabl=2:tab2=14:B0SUB 4570 
3930 airel=R0UND(((arc*d2>/4),4) 
3940 aire2=R0UNDi (seg«(d2-2*haut) /4 
1,4): IF aire2>airel THEN CLSIhPRIN 
T #1:F0R f=l TO 8:PRINT 11, "DONNEES 
INVALIDES":PRINT 11." RECOMMENCEZ 
S.V.P.":NEXT:FOR G=l TO 3000:NEXT:R 
ETURN 

3950 aire=R0UND(airel-aire2,4):L0CA 
TE ll,2,20:PRINTIl,"L'aire est de : 
":PRINT 11, aire;" c»";CHR*(255l;" . 

3960 CALL &BB06: RETURN 

3970 tabl=2:tab2=2:G0SUB 4540 

3980 tabl=2:tab2=6:G0SUB 4420 

3990 HAUT=ROUND((D2/2)»(l-C0S(ftNGL/ 

2)), 4) 

4000 LOCATE 11,2, 10:PRINTIl,"La hau 

teur est de :":PRINT 11, haut;" cm." 

4010 CALL !>BB06: RETURN 
4020 tabl=2:tab2=2:GOSUB 4540 
4030 tabl=2:tab2=6:G0SUB 4420 
41J40 SEG=R0UND(D2«SIN(ANGL/2),4):L0 
CATE ll,2,10:PRINTIl,"La mesure du" 
:PRINT 11," segment s est de:":PRIN 
T ll,seg;" cm." 
4050 CALL 4BB06: RETURN 
4060 ' ellipse 

4070 MODE 2: BOSUB 4670:G0SUB 4860 
4080 DEG:PLOT 340,200:F0R F7.=0 TO 3 
60 STEP 5:DRAW 320+20»C0S(FÏ), 200+1 
.00»SIN(F7.):NEXT 



)WI 

HF 
>CR 

NI 
>XL 
>GE 

>JP 

>J8 

>JR 

>PT 



>YE 
>AL 

HH 



RW 

>XD 
>Vt 
>KR 



m 

>XP 
>XR 

m 



>RL 
>YC 
>AC 

HT 
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4090 PLOT 300,200:»») 8,4:M0VER >ZH' 
,-B:BRAHR -8,4:DRAWR 40,0:DRAHR -8, 
4:N0VER 0,-B:DRAHR 8,4 
4100 PLOT 320,300:DRAUR -50,0:DRAWR >PD 
-4,-8:MOVER B,0:DRANK -4.8:DRAHR 
,-200:DRAHR -4,8:M0VER 8.0:DRAI*) -4 
,-B:MOVER -4,0:DRAWR 50,0 
4110 LOCATE 34,13:FRINT "D":LOCATE >TC 
41,13:PRINT "d" 

4120 *ol«=CHR*l24l:fo2«="":*o=l >YV 
4130 LOCATE *3, 59,B: PRINT #3, toi*;" >KD 
A=(D.d.";CHR$(184);")/4";fol* 
4140 LOCATE 13,59, 16:PRINT t3,to2»; >KH 
•u=((IHd)A2).'|CHR«(184)|fo2$ 
4150 IF INKEY (181=0 THEN 4230 >W 
4160 IF INKEY(47)=0 THEN 4190 >W 
4170 IF INKEY(9)=0 THEN CLS:RETURN >CR 
4180 GOTO 4150 >NA 

4190 fo=to+l: IF fo/2 THEN fo=l >XK 
4200 ON fo 60SUB 4210,4220:G0T0 413 >BD 


4210 fol*=CHR$(24):*o2$="":RETURN >BE 
4220 Fo2*=CHR*(24):*ol*="":RETURN ;BF 
4230 CALL &BB03 : CLSi 1 : GOSUB 4240:CL >T0 
StllGDSUB 4770I60SUB 4860: BOTO 4120 

4240 tabl=2:tab2=2:S0SUB 4510 ,>XQ 
4250 tabl=2:tab2=6:G0SUB 4540 >XZ 
4260 IF dl<d2 THEN PRINT CHR»(7);:C >RV 
LSI 1: GOTO 4240 

4270 ON fo GOSUB 4280, 4300: RETURN >BC 
4280 aire=R0UND((dHtd2»PD/4,4l:L0C >GT 
ATE 11,2, 10:PRINTtl,"L aire est de 
:":PRINT 11, aire;" c«":CHR$(255): " 



4290 CALL 1BB06: RETURN 


>RT 


4300 per=R0UND(!(dl+d21/2)«PI,4):L0 


>ZE 


CATE ♦l,2,10:PRINTIl,"Le périmètre 




est":PRINT 11," de ";per;" cm." 




4310 CALL &BB06: RETURN 


>RK 


4320 ENB 


>YH 


4330 LOCATE ll,tabl,tab2:PRINTIl, "E 


>LA 


NTREZ LE COTE a en":PRINT#l," M - 




->";:LINE INPUTIl,"",col» 




4340 col=VAL(cols):IF cola) THEN LO 


>VF 


CATE ll,l,l:PRINTH,CHR$(7i:G0T0 43 




30 




4350 RETURN 


>FF 


4360 LOCATE ll,tabl,tab2:PRINT*l,"E 


)LF 


NTREZ LE COTE b en":PRINTIl," Ci - 




->";:LINE INPUTIl,"",co2» 




4370 co2=VAL(co2*):IF co2=0 THEN LO 


M 


CATE *1,1,1:PRINT*1,CHR*(7):G0T0 43 




60 




4380 RETURN 


>FJ 


4390 LOCATE ll,tabl,tab2:PRINTIl, "E 


>TF 


NTREZ LA LONGUEUR »":PRINTI1," en c 





■ ->";:LINE lNPUTH,"",lol» 

4400 lol=VAL(lol*):IF lol=0 THEN LO ,>UE 

CATE ll,l,l:PRINTtl,CHR*(7):G0T0 43 

90 

4410 RETURN >FC 

4420 LOCATE H,tabl,tab2:PRINTtl."E >CX 

NTREZ L'ANGLE ":CHR*(174):PRINTtl. " 

en BEGRES ~>«j:LINE INPUTIl.angl 
»:angl=VAL(angl*):IF angl=0 THEN LO 
CATE tl,l,l:PRINT*l,CHR*(7>:60T0 44 
20 

4430 RETURN >FE 

4440 LOCATE U,tabl,tab2:PRlNTtl,"E ;CC 
NTREZ L'ANGLE ";CHRS(177):PRINTI1," 

en BEGRES — >";:LINE INPUTIl.angl 
*:angUVAL(angl$):lF angla) THEN LO 
CATE I1,1,1:PRINTI1,CHR»(7):G0T0 44 
40 

4450 RETURN >FB 

4460 LOCATE #l,tabl,tab2:PRINTIl,"E >CV 
NTREZ LA HAUTEUR":PRINTI1," en en 
— >"::LINE INPUT*l,haut»:haut=VALi 
haut»!:IF haut=0 THEN LOCATE 11,1,1 
:PRINTI1.CHR«(7):S0T0 4460 
4470 RETURN >FJ 

4480 LOCATE 11, tabl.tab2:PRINTIl,"E >LZ 
NTREZ LE RAYON r en":PRINTIl," cm 
->";:LINE INPUT*l,"\ra« 
4490 ra=VAL(ra»):IF ra=0 THEN LOCAT >NH 
E *1,1,1:PRINT CHR»(71:G0T0 44B0 
4500 RETURN :>FC 

4510 LOCATE tl,tabl, tab2:PRINTH,"E >PT 
NTREZ LE DIAMETRE D":FRINTI1," en c 
m ->"|:LINE INPUT#1,"",D1» 
4520 D1=VAL(D1$):IF B1=0 THEN LOCAT ;MF 
E I1,1,1:PR1NT CHR»(7):G0T0 4510 
4530 RETURN >FF 

4540 LOCATE ll,tabl,tab2:PRINTIl, "E .'PS 
NTREZ LE BIAMETRE d":PRINTIl," en c 
» ->";:LINE 1NPUTI1,"",D2* 
4550 B2=VAL(B2$):IF B2=0 THEN LOCAT >MQ 
E ll,l,l:PRINT CHR$(7):S0TO 4540 
4560 RETURN >FJ 

4570 LOCATE ll,tabl,tab2:PRINTIl,"E >YU 
NTREZ LA L0NGUEUR":PRINTI1," D'ARC 
b en c«":PRINT 11," ->"::LINE INPU 
I#l,",art» 

4580 arc=VAL(arc«i:IF arcaj THEN LO >TÏ 
CATE *1,1,1:PRINT CHR$(7):60T0 4570 

4590 RETURN >GB 

4600 LOCATE ll,tabl,tab2:PRINTIl,"E >RX 
NTREZ LE SEGMENT s":PRINTIl," en c 
• — >"||L1NE INPUTtl,"",seg* 
4610 seg=VAL(seg*):IF seg=0 THEN LO /TP 
CATE ll,l,l:PRINT CHR$(7):G0T0 4600 



4620 IF seg,>d2 THEN LOCATE 11,1, llP >AA 

RINT CHR$(?):6QT0 4600 

4630 RETURN ,'FB 

4640 LOCATE tl,tabl,tab2:PRINTIl 1 "E >DK 

NTREZ L'AIRE en":PRINTIl," cm";CHR 

«(255):" — >";:UNE INPUTIl,"",alre 

* 

4650 aire=VAL(aire$):IF aire=0 THEN >AD 

LOCATE I1,1,1:PRINTI1,CHR»(7I:G0T0 

4640 
4660 RETURN >FK 

4670 >YK 

4680 dessin contour écran >Zfl 
4690 >ZB 

4700 MODE 2:0RIGIN 0,0:PL0T 0,0.13: >HH 
DRAHR 639,0:DRAWft 0,399:DRANR -639. 
0: DRAHR 0,-399 

4710 PLOT 3.3:BRAHR 633,0:DRAWF: 0,3 :>HE 
93: DRAHR -633,0îDRAW 0,-393 
4720 PLOT 4,80:DRAWR 631,0:PL0TR 0, >TJ 
-3: DRAHR -631,0 

4730 PLOT 165,3:0RAHR O,74:PL0TR 3, >QZ 
0:BRANR 0,-74 

4740 PLOT 440,80:DRAWR 0,317:PL0TR >VK 
-3,0:DRAWR 0,-317 
4750 PLOT 440,355:DRAWR 194,0:PL0TR >HW 

0,-3:DRAUR -194,0 

4760 LOCATE 64,2!PMNT "FORMULES" ,CQ 
4770 HINDOU 11,2,23,2, 19:PAPER 11,1 >RK 
:PEN I1,0:CLS 11 

47B0 LOCATE 11, 3,3:PRINTI1, "CHOISIS >UP 
SEZ LA BONNE" 
4790 LOCATE 11, 3, 5:PRINTI1, "FORMULE :>RE 

AVEC LA" 
4800 LOCATE tl,3,7:PRINTIl. "BARRE D >UZ 

ESPACEMENT. " 
4810 LOCATE #1,3,13:PRINTI1,"CECI F >UT 
AIT , VALIDEZ" 

4820 LOCATE 11,3, 15:PRINTI1, "PAR EN >JT 
TER ." 

4830 HINDOU 12,57.79,5, 19:PAPER 12, ;UA 
0:PEN I2,1:CLS 12 

4840 HINDOU I4,23,79,22,24:PAPER 14 ;>UD 
,0:PEN I4,1:CLS 14 
4B50 LOCATE 2,23:PRINT "COPY=RETOUR >ZC 

AU MENU": RETURN 
4B60 LOCATE 14, 1, 1:PRINTI4,"A:5URF. >QA 
,SECT. a:L0N6. b:LARG. r,R:RAYON 

d,D:DIAM." 
4870 LOCATE l4,l,3:PRINTI4,"s:EPAIS >UX 
. e:DIAG. u=PERI. h=HAUT. ";CHR 
*(176);":ANGLE" 

4880 RETURN ;GD 

4B90 MODE 2:PRINT:PRINT " VALEUR EN >PH 
TREE ERRONEE ... UNE TOUCHE POUR RE 
COMMENCER ...":CALL 8.BBÛ3: CALL iBBO 
6:PRINT CHR*(7l:RUN« 
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LE CERVEAU 



Eric AUBRY 




LISTING 1 



Le Master Mind n 'a plus 
aucun secret pour vous, 
et puis il y a bien 
longtemps que vous l'avez 
laissé de côté. Cela vient 
sans doute du fait qu'il 
faut être deux minimum 
pour y jouer... et vous 
êtes tout seul ! 
"Si seulement il existait 
un jeu du même genre, 
mais plus complexe, avec 
la possibilité d'y jouer 
seul, ça serait super 
chouette !" Vous avez 
pensé cela ? Alors c'est 
gagné ! 



Le Cerveau vous permet 
d'affronter un CPC impartial 
qui choisit au hasard parmi 
les dix possibles cinq formes 
que vous devrez découvrir et 
aligner dans le bon ordre en 
un minimum d'essais. Votre 
suggestion sera analysée et 
vous saurez combien de 
formes sont bien placées ou 
non. 

Trois niveaux de jeu sont 
prévus (16, 12 ou 8 coups) 
pour pousser votre logique à 
son extrême limite et ainsi 
vous faire devenir un de nos 
futurs... cerveaux ! 
Taper les deux premiers 
listings : une fois lancés, 
ceux-ci généreront des fichiers 
binaires (.BIN) qui seront 
exploités par le programme 
principal sauvé sous le nom 
de "cerveau". 



10 ' >Lfl 

20 LARGEUR CARACTERE >U 

30 • >LC 

40 ' >LD 

50 DATA 01, 09,50,21, El, 70,CD,D1 >XF 

bO DATA BC.0D, 50,16,05, 43, 48,41 iXZ 

70 DATA D2,O0,FE,02,C0,CD,06,B9 >YE 

80 DATA DD,46,00,21,00,3B,3E,00 ,'XN 

90 DATA B8,2B,09,C5,06,08,23,10 ,'X0 

100 DATA FD.C1,10,F7,11,D9, 50,01 >YB> 

110 DATA 08,0O,ED,B0,CD,09.B9,DD >ZB 

120 DATA 7E,02,32,E5,50,CD,CC.BB >YH 

130 DATA FD.21.D9, 50,06,08, D5.E5 >V« 

140 DATA C5,F5,FD,CB,00,7E,CD,9B ,'ZA 

150 DATA 50,FD,CB,00,76,CO,9B,50 >Y2 

160 DATA FD,CB,00,6E,CD,9B,50,FD >ZX 

170 DATA CB,00,66,CD,9B,50,FD,CB ,'ZB 

180 DATA 00,5E,CD,9B,50,FD,CB,00 ,'ZC 

190 DATA 56,CD,9B,50,FD,CB,00,4E . ZF 

200 DATA CD,9B,50,FD,CB,00,46,CD >ZV 

210 DATA 9B,50,F1,C1,E1,D1,2B,2B >YK 

220 DATA F5,C5,D5,E5,CD,C9,BB,CD >ZH 

230 DATA CC,BB,E1,D1,C1,F1,FD,23 >ZB 

240 DATA 10,AC,C9,28,19,D5,E5,ED >ZA 

250 DATA 4B,E5,50,C5,21, 00,00, 11 >YS 

260 DATA 01,00,CD,ED,BB,C1,OB,78 ;>YD 

270 DATA B1,20,F0,E1,D1,C9,D5,E5 >VZ 

280 DATA 3E,00,CD,DE,BB,ED.4B,E5 >ZL 

290 DATA 50,C5,21, 00,00,11, 01, 00 ,>XU 

300 DATA CD,ED,BB,C1,0B,78,B1,20 >ZL 

310 DATA F0,3E,01,CD,DE,BB,E1,D1 >ZE 

320 DATA 09,00,00,00,00,00,00,00 >XE 

330 DATA 00,00,00,00,00,00 >RX 

340 ' >RH 
350 'LECTURE DES DONNEES ET CREATI0 >RJ 
N RSX 

360 ' >RK 

370 MEMORY MFFF >LC 
380 FOR 1=1 T0 230:READ V»:PÛKE 1.4F >YN 
FF+I,VAL("4"tO$):T=TWAL("l"+V$):NE 
XT I 

400 SAVE"CERVEAU2",B,KOOO,230 >¥N < 



LISTING 2 



10 A=0 >FK 

20 READ A*: IF A*<>"-1" THEN POKE 46 >JA 
000+A,VAL("li , 'tA»):A=A+l:GOTO 20 

30 A=0 >GB 

40 READ A«:IF A»<>"-1" THEN POKE 1.6 >HL 
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2A0+A,VALCV+A*):A=A+l:6OT0 40 EL5 

E SAVE "CERVEAU4",B,t6000,li320 

50 ' CERCLE 

60 MTA 0F,0F,0F,0F 

70 DATA 78 t F0,F0,El 

80 DATA 78, E0, 70, El 

90 DATA 78,80, 10. El 

100 DATA 78,0,0,E1 

110 DATA 68,0,0,61 

120 DATA 68,0,0,61 

130 DATA 48,0,0,21 

140 DATA 48,0,0,21 

150 DATA 68,0,0,61 

160 DATA 68,0,0,61 

170 DATA 78,0, 0,E1 

180 DATA 78,80, 10, El 

190 DATA 78,E0,70,E1 

200 DATA 78,F0,F0,E1 

210 DATA OF,0F,OF,OF 

220 • TRIANGLE 

230 DATA OF,OF,OF,OF 

240 DATA 78,F0,F0,E1 

250 DATA 78,E0,70.E1 

260 DATA 78, CO, 30, El 

270 DATA 7B,CO,30,E1 

2B0 DATA 78,80, 10, El 

290 DATA 78,80,10.E1 

300 DATA 78, 0,0, El 

310 DATA 78,0,0,E1 

320 DATA 68,0,0,61 

330 DATA 68,0,0,61 

340 DATA 48,0,0,21 
350 DATA 48,0,0,21 

360 DATA 48,0,0,21 

370 DATA 78,F0,F0,E1 

380 DATA 0F,0F,0F,0F 

390 ' TR1AN6LE INVERSE 

400 DATA 0F,0F,0F,OF 

410 DATA 7B,F0,F0,E1 

420 DATA 48,0,0,21 

430 DATA 48,0,0,21 

440 DATA 48,0,0,21 

450 DATA 68,0,0,61 

460 DATA 68,0,0,61 

470 DATA 78,0, 0,E1 

480 DATA 78,0,0,E1 

490 DATA 78,80, 10.E1 

500 DATA 78,B0,10,E1 

510 DATA 78,C0,30,E1 

520 DATA 78,C0,30,E1 

530 DATA 78,E0,70,E1 

540 DATA 7B,FO,FO,E1 

550 DATA OF,OF,OF,OF 

560 ' CARRE 

570 DATA OF,OF,OF,OF 

580 DATA 78,F0,F0,E1 

590 DATA 78,F0,F0,E1 






.-LE 

>hy 
m 

MA 
•MF 
>LH 
H£ 
>LF 
>LA 
>LB 
/LJ 
>LK 
• LD 

ne 

■NO 
;N2 
>NH 
>RE 
>NK 
ND 

m 

>NG 

•NH 
>HD 
ME 
>LV 
>LZ 
■LH 
>LJ 
>LD 
>LE 
>LF 
>NH 
>NR 
>TC 
,NJ 

NC 
>LC 
>LD 
»LE 
>Ut 
;LN 
>LS 

LH 
•MB 

m 

•NE 
,NF 

m 

•m 
•no 

>TB 

/NT 
,NL 
;NM 



600 DATA 68,0,0,61 
610 DATA 68,0,0,61 
620 DATA 68,0,0,61 
630 DATA 68,0,0,61 
640 DATA 68,0,0,61 
650 DATA 68.0,0,61 
660 DATA 68,0,0,61 
670 DATA 68,0,0,61 
680 DATA 68,0,0,61 
690 DATA 68,0,0,61 
700 DATA 78,F0,F0,E1 
710 DATA 78,F0,F0,E1 
720 DATA 0F,0F,0F,OF 
730 ' L0SAN6E 
740 DATA 0F,0F,0F,0F 
750 DATA 78,F0,F0,E1 
760 DATA 7B,EO,70,E1 
770 DATA 78, CO, 30, El 
780 DATA 78,80, 10.E1 
790 DATA 78, 0,0, El 
800 DATA 68,0,0,61 
810 DATA 48,0,0,21 
820 DATA 48,0,0.21 
830 DATA 68,0,0,61 
840 DATA 7B,0,0,E1 
850 DATA 78,80, 10, El 
860 DATA 7B,C0,30,E1 
870 DATA 7B,E0,70,E1 
8B0 DATA 7B,F0,F0,E1 
890 DATA OF,OF,OF,OF 
900 ■ PENTAGONE 
910 DATA OF,OF,OF,OF 
920 DATA 78,F0,F0,E1 
930 DATA 78,E0,70,E1 
940 DATA 78,00,30, El 
950 DATA 78,80, 10, El 
960 DATA 7B,0,0,E1 
970 DATA 68,0,0,61 
980 DATA 46,0,0,21 
990 DATA 48,0,0,21 
1000 DATA 48,0,0,21 
1010 DATA 48,0,0,21 
1020 DATA 68,0,0,61 
1030 DATA 78,0,0,E1 
1040 DATA 78,80, 10, El 
1050 DATA 78,F0,F0,E1 
1060 DATA OF.OF.OF.OF 
1070 ' ETOILE 
1080 DATA 0F,0F,0F,OF 
1090 DATA 78,FO,FO,E1 
1100 DATA 68,E0, 70,61 
1110 DATA 48,60,60,21 
1120 DATA 68,20,40,61 
1130 DATA 78,0,0,E1 
1140 DATA 7B,80,10.E1 
1150 DATA 48,0,0,21 
1160 DATA 48,0,0,21 



o 






* 



LJ 

>LK 

LL 

••LH 

>LN 

•LF 

LO 

>LR 

>LT 

.LU 

NE 

NF 

.'Nf 

TA 

>NR 

>NK 

>NU 

■NN 

>NA 

>L« 

>LL 

>LF 

>LG 

>LP 

>LH 

(16 

■UN 

•m 

NP 
>NY 
•» 
NQ 
>NJ 
>NT 
NH 

m 

>LL 
>LV 

■LF 
>LQ 
>LT 
>LU 
>LB 
■ML 
NH 
.•NE 
>PB 

>PD 
>NF 

NH 
>NP 
■NO 
.■MM 
,NN 
>LZ 
>LA 



1170 DATA 78,80, 10.E1 
1180 DATA 78,0,0, El 
1190 DATA 68,20,40,61 
1200 DATA 48,60,60,21 
1210 DATA 68, EO, 70,61 
1220 DATA 78,F0,F0,E1 
1230 DATA OF.OF,OF,OF 
1240 ' ETOILE DAVID 
1250 DATA 0F,0F,0F,0F 
1260 DATA 78,F0,F0,E1 
1270 DATA 7fl,E0.70,El 
1280 DATA 78,C0,30,E1 
1290 DATA 7B,00,10,E1 
1300 DATA 48,0,0,21 
1310 DATA 48,0,0,21 
1320 DATA 68,0,0,61 
1330 DATA 68,0,0,61 
1340 DATA 48,0,0,21 
1350 DATA 48,0,0,21 
1360 DATA 78,80, 10.E1 
1370 DATA 7fl.C0.30.El 
1380 DATA 78,EO,70,E1 
1390 DATA 7B,F0,F0,E1 
1400 DATA OF.OF.OF.OF 
1410 ' SPIRALE 
1420 DATA OF.OF.OF.OF 
1430 DATA 78,F0,F0,E1 
1440 DATA 7B,FO,FO,E1 
1450 DATA 78,80, 10.E1 
1460 DATA 7B,70,E0,E1 
1470 DATA 68,C0,30.61 
1480 DATA 6B, 60, DO, 61 
1490 DATA 68,A0,50,61 
1500 DATA 68,60,50.61 
1510 DATA 68.C0.D0.61 
1520 DATA 7B,70,B0.61 
1530 DATA 78,80, 60, El 
1540 DATA 7B,F0,D0,E1 
1550 DATA 68,0,30,E1 
1560 DATA 7B,F0,F0,E1 
1570 DATA OF,OF,OF,OF 
15B0 ' COEUR 
1590 DATA OF.OF.OF.OF 
1600 DATA 78,F0,F0,E1 
1610 DATA 78,F0,F0,E1 
1620 DATA 78,30,C0,E1 
1630 DATA 68,10,80,61 
1640 DATA 48,0,0,21 
1650 DATA 48,0,0,21 
1660 DATA 48,0,0,21 
1670 DATA 48,0,0,21 
1680 DATA 68,0,0,61 
1690 DATA 78,0,0, El 
1700 DATA 78,80, 10.E1 
1710 DATA 78,C0,30,E1 
1720 DATA 78,E0,70,E1 
1730 DATA 7B,F0,F0,E1 





o 



o 




m 

>HT 

Nf 

>NP 

>NP 

>NA 

•PA 

>XK 

>PC 

>NE 
NN 

>NH 

>NV 

>LU 

>LX 
Lt 
LF 

>LA 

>LB 

>NT 
NH 

>NQ 

>PA 
■NH 

>XJ 

>PB 

ND 

NE 

>NT 

>NP 

NF 

>NK 

>KJ 

>NL 

NE 

>NR 

>NX 

>ND 

• MV 

NH 

>PH 

>¥6 

>PK 

>NC 

■ND 

>NF 

•NA- 

'Lu 

.■LE 
LF 
>LE 
MF 
>MZ 
>NQ 
•NF 

>w 

>NG 
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1740 DATA 0F,0F,0F,0F >PS 

1750 ' PION BLANC >VF 

1760 DATA 0F,0F,1E,87 >PB 

1770 DATA 78,E1,78,E1 >ND 

1780 DATA 7B,E1,78,E1 >NE 

1790 DATA 1E,87,0F,0F >PE 

1800 ' PION NOIR >YB 

1810 DATA 0F,0F,0E,07 >NN 

1820 DATA 08,01,08,01 >NN 

1830 DATA 08,01,08,01 >NP 

1840 DATA 0E,07,0F,0F >NZ 

1850 END >ZC 

1860 DATA DD,6E,0,DD,66,1,22,7C,A0, >¥E 

DD,6E,2,2D,DD,66,4,25,CD,1A,BC,22.7 

E,A0,6,10,C5,2A,7C,A0,ED,5B,7E,A0,1 

74,0,ED,BO,2A,7E,AO,CD,26,BC,22,7E, 

AO,21,4,O,ED,5B,7C,A0,19,22 

1870 DATA 7C,A0,C1,10,DC,C9,DD,6E,0 >DM 

,DD,66,1,22,7C,A0,DD,6E,2,2D,DD,66, 

4,25,CD,1A,BC,22,7E,A0,6,B,C5.2A,7C 

,A0,ED,5B,7E,A0,1,2,0,ED,B0,2A,7E,A 

0,CD,26,BC,22,7E,A0,21,2,0,ED 

1880 DATA 5B,7C,A0, 19,22, 7C,A0,C1,1 >LL 

0,DC,C9,-1 

1890 DATA DD,6E,0,DD, 66,1,22,10,63, >YL 

DD,6E,2, 2D,DD, 66,4,25, CD, 1A.BC, 22,1 

E, 63, 6, 10, C5, 2A, 1C, 63, ED, 5B, 1E, 63, 

1,4,0,ED,B0,2A,1E,63,CD,26,BC,22,1E 

,63,21, 4,0, ED,5B,1C, 63,19, 22 

1900 DATA 1C,63,C1,10,DC,C9,DD,6E,0 >CH 

,DD,66,1,22,1C,63,DD,6E,2,2D,DD,66, 

4,25,CD,1A,BC,22,1E,63,6,8,05,2A,1C 

,63,ED,5B,1E,63,1,2,0,ED,B0,2A,1E,6 

3,CD,26,BC,22,1E,63,21,2,0,ED 

1910 DATA SB, 10,63,19,22,10, 63,C1,1 >ZC 

0,DC,C9,EF,F,20.EC,-1 



LISTING 3 



10 '*******♦*************♦********* . 

************ 

20'» le cerveau: 



foD,56,03,DD,6E,04,DD,66,05,ED,B8.C9 

100 INK 0,0: INK 1,24: INK 2, 15: INK 3 >C¥ 

.8 

110 CLEAR:PAPER 0:PEN 1:M0DE 1 >YR 

120 LOCATE 6,13:PRlNT"V0ULEZ-VOUS L >CX 
ES EXPLICATIONS ?" 

130 A*=UPPER*UNKEY»):IF A»="" THEN >KZ 
GOTO 130 

140 IF A»="D" THEN GOTO 2920 >UQ 

150 IF A$<>"N - THEN GOTO 130 >UR 

160 60T0 3490 >8A 

170 GOSUB 3690 >0H 

180 CLS:BORDER 10 >MQ 



30 '« 



par Eric AUBRY >LC 



40 ' M**************************** 
************ 

50 GOSUB 3620 

60 MEMORY MFFF:L0AD"CERVEAU2\S<500 

OiCALL 15000 

70 LOAD"CERVEAU4",i,6000:POKE 164D0. 

1 

BO FOR 1=0 TO 20:READ ft«:fl=VflL("li"t 

A$):POKE 16600*1, A:NEXT 

90 DATA DD,4E,00,DD,46,01,DD,5E,02, 




>DT 



». 



,>tv 



190 HINDOU #1,2,20,2,24 

200 HINDOU #2,22,39,2,18 

210 HINDOU #3,22,35,20,24 

220 «IND0W#4,37,39, 20,24 

230 PAPER#1,2:PAPER#2,2:PAPER#3,2 

240 CLS#1:CLS#2:CLS#3:CLS#4 

250 PLOT 10,386, httRAWR 0,-374,1!» 

AWR 314,0, 1:DRAWR 0,378, UDRAUR -31 

4,0,1 

260 PLOT 330,386,1:DRAHR 0,-290,1:0 

RAWR 298,0, 1:DRAWR 0,282, UDRAWR -2 

98,0,1 

270 PLOT 330, 100,1: DRAW 0,-90, 1:DR 

AWR 234,0, 1:DRAWR 0,90,1:DRAWR -234 

,0,1 

280 PLOT 57O,10O,l:DRAWR 0,-90,1: DR 

AWR 58,0,1:DRAWR 0,90,1:DRAWR -58,0 

,1 

290 PLOT 192,382,3:DRAWR 0,-366, 3:P 

LOT 512,382, 3:DRAWR 0,-272,3 

300 BOSUB 790 

310 X=336:Y=46: GOSUB 740 

320 FLAGCONT=0:G0SUB B3O:G0SUB 920 

330 PERD=0:COUP3=0:COUP=0:CHOIX=0:N 

B=l 

340 IF C0UP3=COUPMAX THEN GOTO 2670 



uc 



>DZ 
350 A«=INKEYi:IF A»="" THEN GOTO 35 >BC 



360 IF A$=CHR$(i(F3) THEN GOTO 430 >YF 
370 IF A*=CHR$i!iF2) THEN GOTO 490 >ZD 
380 IF A*=CHR«(13) THEN GOSUB 550 >ZT 
390 IF A»=CHR*(224) THEN SOUND 1,50 >0M 
0,20:CLS#1:0RIBIN 0,0:PLOT 192,382, 
3:DRAWR 0,-366,3:FLAGC0NT=FLAGCDNT 
XOR 1:B0SUB 830:G0T0 1420 
400 IF A*=CHR«(I(9) THEN BOSUB 2060: >KN 
BOTO 2170 

410 IF A*=CHR*(«.7F) THEN SOUND 1.70 >RZ 
0,20: BOSUB 2340 

420 GOTO 340 >YK 

430 IF X<528 AND Y=46 THEN GOSUB 77 >UZ 
0:X=X+48:GOTO 470 

440 IF X=528 AND Y=46 THEN 60SUB 77 >ZV 
0:X=336:Y=94:GOTO 470 
450 IF X<528 AND Y=94 THEN GOSUB 77 >UE 
0:X=X+48:G0T0 470 

460 IF X=528 AND Y=94 THEN 60SUB 77 >PC 
0:X=336:Y=46 

470 GOSUB 740 >JB 

480 GOTO 340 >ZF 

490 IF X>336 AND Y=94 THEN GOSUB 77 >UG 
0:X=X-48:GOTO 530 

500 IF X=336 AND Y=94 THEN BOSUB 77 >ZN 
0:X=528:Y=46:60T0 530 
510 IF X>336 AND Y=46 THEN GOSUB 77 >W 
0:X=X-48:GOTO 530 

520 IF X=336 AND Y=46 THEN GOSUB 77 >NH 
0:X=528:Y=94 

530 GOSUB 740 >HJ 

540 BOTO 340 >ZC 

550 'M AFFICHAGE CHOIX JOUEUR >TA 
560 IF CH0IX=5 THEN SOUND 1.250,20: >BK 
CHOI X=0: C0UP=C0UP+1 : COUP3C0UP3+ 1 : S 
OSUB 2250:NB=1:G0T0 990 
570 IF C0UP=8 THEN LOCATE #2,22,18: >XC 
| PRINT #2,CHRt(10):0RIBIN 0,0:PLOT 5 
12,3B2,3:DRANR 0,-270,3:COUP=COUP-1 
580 IF X=336 AND Y=46 THEN CHOIXKN >AV 
B)=l:AD=*i6000:G0T0 680 
590 IF X=384 AND Y=46 THEN CHOIXKN >AE 
B)=2:AD=!i6040:G0T0 680 
600 IF X=432 AND Y=46 THEN CHOIXKN >AV 
B)=3:AD=46OBO:GOT0 680 
610 IF X=4B0 AND Y=46 THEN CHOIXKN >AM 
B)=4:AD=Mi0C0:G0T0 680 
620 IF X=52B AND Y=46 THEN CHOIXKN >AY 
B>=5:AD=M>100:GOTO 680 
630 IF X=336 AND Y=94 THEN CHOIXKN )AE 
B)=6:AD=!i6140:G0T0 680 
640 IF X=384 AND Y=94 THEN CHOIXKN >AP 
B)=7:AD4.6180:G0T0 680 
650 IF X=432 AND Y=94 THEN CHOIXKN >AX 
B)=8:AD=t61C0:G0T0 680 
660 IF X=480 AND Y=94 THEN CHOIXKN >AH 
B)=9:AD=ic62O0:GOT0 680 
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>ET 

>m 

>LN 
«F 
>ZE 
>TA 
>ET 



m 

>TG 

>VX 

>VA 

>ZF 
>TB 



670 IF X=52B AND ¥=94 THEN CHOIXKN >RY 
B)*10iMM6240 

680 CALL M>2A0.22+CH0IX*2,2+C0UP»2, 

AD 

690 CH0IX=CH0IX+1 

700 SOUND 1,100,20 

710 NB=NB+1 

720 RETURN 

730 '« DESSIN DU CADRE SELECTION 

740 ORIGIN 0,0:PLOT X,Y,3:DRAtlR 0, 

30,3:DRAW 30,0,3:DRAWR 0,30,3:DRAK 

R -30,0,3 

750 RETURN >ZH 

760 '« EFFACEMENT DU CADRE SELECTI >TD 

ON 

770 0RI61N 0.0:PLOT X,Y.1:DRAHR 0,- )EK 

30,1:DRANR 30,0,1:DRAWR 0,30,1:DRAH 

R -30,0,1 

780 RETURN 

790 '»* AFFICHAGE DES FORMES 

BOO FOR 1=0 TO 4:CALL 462A0.22+I»'. 

23,fc6000+I*64:NEXT 

810 FOR 1=0 TO 4:CALL M>2A0,22+I»3, 

20,S<6140+I*64:NEXT 

B20 RETURN 

830 '*» CONTOUR CHOIXJEU/CONSUTATIO 

N 

B40 ORIGIN 0,0: IF FLAGC0NT=1 THEN 6 ;JD 

OTO 860 

850 IF FLAGCQNTa) THEN GOTO 890 >¥A 

B60 PLOT 334,384,0:DRA«R 0,-274,0:D >ZB 

RANR 290,0,0:DRAWR 0,274,0:DRA» -2 

90,0,0 

870 PLOT 14,3B4,1:DRAHR 0,-370,l:DR 

SUR 306,0,1:DRANR 0,370, 1:DRAWR -30 

6,0,1 

880 RETURN 

890 PLOT 14,384,0:DRAWR 0,-370,0:DR 

AWR 306,0,0:DRAWR 0,370. 0:DRANR -30 

6,0,0 

9i» PLOT 334,384, 1:DRAWR 0,-274,1:0 

Wm 290,0,1:DRAHR 0,274,1:DRAWR -2 

90,0,1 

910 RETURN 

920 '** CHOIX ORDINATEUR 

930 RANDOMIZE TIME 

940 FOR 1=0 TO 4 

950 A(I)=INT(RND»10)+1 

960 POKE 46320+1, A(I) 

970 NEXT 

980 RETURN 

990 '** ANALYSE CHOIX JOUEUR 

1000 FOR 1=0 TO 4iA(I)=0:R(I+l)=0:N >EJ 

EXT 

1010 FOR 1=0 TO 4 >BC 

1020 IF CH0IX1(I+1)=PEEK(M>320+I) T >XK 

HEN A(I)=1:R(I+1)=2 



>YV 



1030 NEXT >KF 

1040 IF R(l)=2 AND R(2I=2 AND R(3)= >NG 

2 AND R(4)=2 AND R(5I=2 THEN GOTO 2 

410 

1050 J=l .'VD 

1060 1=0 >VC 

1070 IF R(J>=2 THEN I=0:GOSUB 1160: >KR 

BOTO 1070 

1080 IF A(I)=1 THEN GOTO 1150 >VE 

1090 IF CH01XHJ)=PEEK(t,6320+I) THE >M» 

N GOTO 1110 

1100 IF 1=4 THEN GOSUB 1160:60TO 10 >AD 

60 ELSE I=I+1:G0T0 1080 

1110 A(I)=1 NF 

1120 R(J)=1 >QE 

1130 IF J=5 THEN GOTO 1170 ELSE J=J :>CA 

+1 

1140 GOTO 1060 >MA 

1150 IF 1=4 THEN GOSUB 1160:G0T0 10 >AJ 

60 ELSE 1=I+1:60T0 1080 

1160 IF J=5 THEN GOTO 1170 ELSE J=J >LF 

tl:RETURN 

1170 I=1:J=1:AD=M>320+10+C0UP3 >YA 

11B0 IF R(I>=1 THEN POKE AD+J-1,R<I >MJ 
):GOTO 1210 

1190 IF R(I)=2 THEN IF KM THEN 1= >NU 

I+1:G0T0 1180 

1200 IF R(I)=0 THEN IF KM THEN PO :>BX 
KE AD+J-1,R(I):GOTO 1210 

1210 IF KM THEN J=J+1:1=I+1:G0T0 >FA 

1180 

1220 1=1 >VB 

1230 IF R(I)=2 THEN POKE AD+J-1,R(I >ML 

):G0T0 1260 

1240 IF R(I)=1 THEN IF 106 THEN 1= >NJ 

I+1:G0T0 1230 

1250 IF R(I)=0 THEN IF KM THEN 1= >NJ 

I+1:G0T0 1230 

1260 IF I<>6 THEN J=J+1:I=I+1:G0T0 >FB 

1230 

1270 J=l >VH 

1280 FOR 1=10 TO 6 STEP -1 >RK 

1290 POKE S.6325+10*CDUP3-I,CH01XUJ >DB 

I 

1300 J=J+1 >JH 

1310 NEXT >KG 

1320 I=5:K=5 >BF 

1330 JEU=PEEK(!<6325+(C0UP3-im0+I) >CZ 

1340 IF JEU=1 THEN AD=*6280:J=1 >YT 

1350 IF JEU=2 THEN AD=M)290:J=2 >YX 

1360 IF JEU=0 THEN J=0 >PG 
1370 IF 1=10 THEN GOTO 1410 ELSE 1= >KL 
l+l:K=K+l 

1380 IF J=0 THEN K=K-1:G0T0 1330 >YX 

1390 CALL 462DE,28+K,1+C0UP*2, AD >Vt 

,1400 IF IO10 THEN 60T0 1330 >UQ 



1410 SOUND l,5OO,2O:GOT0 340 M 

1420 '»* RECAPITULATIF JEU >XK 

1430 IF C0UP3M1 THEN C0UP4=11:SURP .'UD 
LUS=1 ELSE C0UP4=C0UP3:SURPLUS=0 

1440 C0UP2=C0UP4:C0UP1=1 >VK 

1450 IF C0UF'2=0 THEN GOTO 1610 >XX 

1460 FOR 1=0 TO 4 >CB 

1470 JEU=PEEK (1.6325+ (C0UP1-1) HOHI >CC 

1480 GOSUB 2810 >XG 

1490 CALL &62A0,(I+1>»2,C0UP1*2,AD >AM 

1500 NEXT >KH 

1510 1=5: k=5 >BG 

1520 JEU=PEEK(i6325+(C0UPl-l)*10+I) >CY 

1530 IF JEU=1 THEN AD=M>2B0:J=1 >YU 
1540 IF JEU=2 THEN AD=M>290:J=2 >YY 
1550 IF JEU=0 THEN J=0 >PH 

1560 IF 1=10 THEN GOTO 1600 ELSE 1= >KN 
I+1:K=K+1 

1570 IF J=0 THEN K=K-1:G0T0 1520 >YZ 
1580 CALL J62DE,9+K,C0UPH2+1,AD >ZX 
1590 IF IO10 THEN GOTO 1520 >UC 
1600 COUP2=COUP2-1:COUP1=COUP1+1:GO >MU 
TO 1450 

1610 IF SURPLUS=0 THEN SOUND 1,500, >JV 
20:FLAGC0NT=FLAGC0NT XOR 1: GOSUB 83 
0:GOTO 340 

1620 A*=INKEY*:1F A»="" THEN GOTO 1 >DT 
620 

1630 IF A»=CHR*(224> THEN SOUND 1,5 >LQ 
0O,20:FLAGCONT=FLA6CONT XOR 1: GOSUB 
830:G0T0 340 
1640 IF A*=CHR*(I<F1) THEN GOTO 1680 >Atl 

1650 IF A»=CHR$(!fO) THEN GOTO 1860 >AM 

1660 IF A$=CHR*(49) THEN GOTO 2060 >ZX 

1670 GOTO 1620 >NA 

1680 »««•»»«**» DESCENTE >YH 

1690 IF C0UP4=C0UP3 THEN SURPLUS=0: >AG 

60TD 1620 ELSE C0UP4=C0UP4+1 : MONTEE 

=0 

1700 LOCATE»1,2,24:FKINT#1,CHR*(10I >LU 

:PLOT 192,382, 3:DRAHR 0,-366,3 

1710 FOR 1=0 TO 4 >BK 

1720 JEU=PEEK(d6325+(C0UP4-l)H0+I) >CD 

1730 GOSUB 2810 >XE 

1740 CALL &62A0,(I+1)»2,22,AD >VX 

1750 NEXT >LE 

1760 I=5:K=5 >CD 

1770 JEU=PEEK(M>325+(C0UP4-1>«10+I> >CJ 

1780 IF JEU=1 THEN AD=li62B0:J=l >YB 
1790 IF JEU=2 THEN AD=d6290:J=2 >YF 
, 1800 IF JEU=0 THEN J=0 >PF 
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■■■■■■■■ 



^^■■^^H 



1810 IF 1=10 THEN S0T0 1850 ELSE 1= >KU 
I+1:K=K+1 

1820 IF J=0 THEN K=K-1:GQT0 1770 >YE 
1830 CALL 462DE,9+K,23,AD >TV 
1840 IF IO10 THEN SOTO 1770 MJH 
1850 BOTO 1620 >NA 

1860 M********** MONTEE >¥H 
1870 IF MONTEES THEN GOTO 1890 >¥Q 
1880 C0UP5=C0UP4-10 >PB 

1890 IF C0UP5=1 THEN GOTO 1620 ELSE >ZD 
C0UP5=C0UP5-1 : COUP 4=C0UP4- 1 : MONTEE 
=1 

1900 LBCATE#1,1,1:PRINT#1,CHR»(11): >RD 
LDCflTE» 1.1,1: F>RINT#1 . CHR* (11): PLOT 
192,382,3:DRAWR 0,-366,3:LDCATE#l,l 
,23:PRINT#1," 
1910 FOR 1=0 TO 4 
1920 JEU=PEEK(S.6325+(C0UP5-1)»10+I) 

1930 OOSUB 2810 

1940 CALL 462A0, (1*11*2, 2. AD 

1950 NEXT 

1960 I=5:K=5 

1970 JEU=PEEK(46325+(C0UP5-i>*10+I) 

1980 IF JEU=1 THEN AD=46280:J=1 

1990 IF JEU=2 THEN AD=46290:J=2 

2000 IF JEIW) THEN J=0 

2010 IF 1=10 THEN 60T0 2050 ELSE 1= 

I+1:K=K+1 

2020 IF J=0 THEN K=K-1:S0T0 1970 

2030 CALL &62DE,9+K,3,AD 

2040 IF IO10 THEN BOTO 1970 

2050 GOTO 1620 

2060 *********** SOLUTION 

2070 CLS»3 

2080 L0CATE#3,1,1:PRINT#3," Voie 

l la Solution:" 

2090 FOR 1=0 TO 4 

2100 JEU=PEEK( 46320+1) 

2110 GOSUB 2810 

2120 CALL 462A0,24+U*2),22,AD 

2130 NEXT 

2140 L0CATE»3,5,5:PRINTI3, ■ (ENTER)" 



2150 WHILE INKEY*OCHR*(13>:HEND 

2160 RETURN 

2170 CLSIl:L0CATE»l,2,10:PRINTtl,"V 

oulez-vous refaire" 

2180 LOCATEUR, 12:PRINT*1, "une par 

tie ?" 

2190 A»=UPPER*(INKEY«) 

2200 IF A»=""THEN GOTO 2190 

2210 IF A*="0" THEN SOTO 110 

2220 IF A»="N" THEN MODE 2:END 

2230 GOTO 2190 

2240 END 



2250 ********* NOMBRE DE COUPS 

2260 SC0RE*=STR»(C0UP3) 

2270 IF C0UP3<10 THEN SCDRE$="0"+SC 

ORE»: SCDRE*=LEFT* (SCORE», 1 ) +RISHT* ( 

SCORE», 1) 

2280 SC0RE»=RIGHT»(SC0RE*,2) 

2290 ORIGIN 576,60 

2300 CALL 45015,3, ASC(LEFT»(SCORE«, 

1)) 

2310 ORIGIN 602,60 

2320 CALL 45015, 3, ASC (RIGHT» (SCORE» 

,D) 

2330 RETURN 

2340 ********** CORRECTION 

2350 PAPER 2 

2360 IF NB=1 THEN RETURN 

2370 NB=NB-1:CH0IX=CH0IX-1 

2380 LOCATE 22+CHQIX*2.2+C0UP*2:PP,I 

NT" " 

2390 LOCATE 22+CH0IX*2,3+C0UP*2:PRI 

NT" " 

2400 RETURN 

2410 '*#******** GAGNE 

2420 CLS#3: SOUND 1,400, 15: SOUND 1,3 

0O,15:S0UND 1,200, 15:S0UND 1,100,15 

:SOUND 1,200, 15: SOUND 1,100,15 

2430 LOCATE#3.1,2:PRINT#3," EXAC 

T !" 

2440 FOR 1=0 TO 4 

2450 JEU=PEEK(46320+I) 

2460 GOSUB 2810 

2470 CALL 462A0,24+(I»2),22,AD 

2480 NEXT 

2490 WHILE INKEY*0"":HEND 

2500 CLSttl 

2510 L0CATE#1,6,3:PRINTI1, "BRAVO !! 

I" 

2520 LQCATE#l,3,6:PRINTtl,"V0US AVE 
1 GAGNE " 

2530 L0CATEH,9,fliPRINTIl,"EN" 
2540 L0CATE#l,6,10:PRINT»l,SGORE*;" 
COUPS" 

2550 L0CATE#1, 2, 10:PRINTH, "Voulez- 
vous voir le 

2560 L0CATE#1,4,12:PRINT#1, "classe» 
ent ?" 

2570 A$=UPPER»(INKEY»! 
2580 IF A»="" THEN SOTO 2570 
2590 IF A*="0" THEN GOTO 3920 
2600 IF A«0"N" THEN GOTO 2570 
2610 GOSUB 4340 

2620 LOCATEUR, 10:PRINTI1, "Voulez- 
vous refaire" 

2630 L0CATE»l,4,12:PRINTil,"une par 
tie ?" 

2640 IF A»="0" THEN GOTO 110 
,2650 IF A*="N" THEN :MODE 2:END 



>YB' 


2660 GOTO 2640 


•ND 


>TK 


2670 '*#**#+#**** PERDU 


>YH 


>KT 


26B0 GOSUB 2060 


>X6 




2690 CLStl 


>LK 




2700 POINTU," Doma9e,":PRINT» 


>FE 


>XZ 


1 




>MA 


2710 PRINTM," Vous n avez pas": P 


>PY 


>FJ 


RINTtl 






2720 PRINTM, "Kussi é trouver la" 


>KJ 


>MG 


2730 PRINTK1," SOLUTION" 


>XL 


>GK 


2740 LDCATEItl , 2, 10: PRINTK1 , "Voulez- 
vous refaire" 


m 


>FB 


2750 L0CATE#l,4,12:PRINT#l,"une par 


•m 


>YB 


tie ?" 




>AA 


2760 A»=UPPER»(INKEY«) 


>RE 


>TT 


2770 IF A«="" THEN GOTO 2760 


>UU 


HV 


27B0 IF A*="0" THEN GOTO 110 


>UL 


>KH 


2790 IF A»="N" THEN MODE 2: END 


WD 




2B00 SOTO 2760 


>NC 


>KK 


2810 '**»******* TRADUCTION Nu»ero- 
>Adresse 


>YD 


>EK 


2820 IF JEU=1 THEN AD=46000: RETURN 


>CF 


>XK 


2830 IF JEU=2 THEN AD=46040: RETURN 


>CM 


■LB 


2840 IF JEU=3 THEN AD=460B0: RETURN 


>CU 




2850 IF JEU=4 THEN AD=460C0: RETURN 


>CH 




2860 IF JEU=5 THEN AD=46100: RETURN 


• CO 


>GJ 


2870 IF JEU=6 THEN AD=46140:RETURN 


>cx 




2880 IF JEU=7 THEN AD=461B0:RETURN 


.CD 


CA 


2890 IF JEU=8 THEN AD=461C0:RETURN 


>CT 


>gc 


2900 IF JEU=9 THEN AD=46200: RETURN 


>C9 


>XF 


2910 IF JEU=10 THEN AD=46240: RETURN 


>CA 



2920 ' HI I HHH I EXPLICATIONS >YF 

2930 MODE 2: II* 1,0 >ML 

2940 TEXT*="LE CERVEAU": FOR 1=1 TO >DJ 

8 

2950 FOR J=l TO LENITEXT») >UP 

2960 ORIGIN 300-(I»45)+J*(8*I),414- >EA 

1*16 

2970 CALL 45015, I,ASC(MID»(TEXT»,J, >RE 

1)):S0UND 1,INT((RND(1)*1)*100),10 

2980 NEXT J >WF 

2990 NEXT I >* 

3000 LOCATE 32,9:PRINT"par AUBRY Er >KZ 

ic" 

3010 WNDOW»1,2,79,10,24:PAPER#1,1: >TA 

PEN#1,0:CLS#1 

3020 PRINTI1," Ce jeu est directe >L0 

•ent inspirf du clllbre MASTER-MIND 

.Sauf qu'ici nous ne jouons pas a 
vec des conbinaisons de couleurs ma 
is de formes .L'ordinateur nous 

propose de choisir parmis 10 forme 
s possibles ." 

3030 PRINTU >GC 

3040 PR1NTM," Le but du jeu est d >LB 
e dfeouvrir une combinaison de 5 fo 
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rmes que 1 ordinateur a choisi ,et 
ce le plus rapidement possible ." 
3050 PRlNTtl 

3060 PRlNTtl," Pour faire votre en 
oix parmis les formes proposées ,il 
suffit de dfplacer le carrf de 
sdection jusque la forme voulue a 
vec les flïches gauche et droi 
te puis de la valider par la touche 

ENTER' ." 
3070 PRINTtliPRlNTtl," Si jamais v 
ous voulez effacer une forme priefd 
emment validle , appuyez sur la t 
ouche 'DEL'." 

3080 LQCflTEti,49,14lPRINTtl, "Presse 
z <ENTER>" 

.3090 INK 1.24:HHILE INKEY*-' >CHR$(13 
! : «END 
3100 CLStl 

3110 PRlNTtl," Lorsque vous voule 
z revoir les coups antïneurs ,appu 
yez sur la touche COPY' .Si t 
ous les coups peuvent [tre affichfs 
, l'ordinateur revient auto- -mat 
îquement en mode jeu ." 
3120 PRlNTtl 

3130 PRlNTtl," Si tous les coups n 
e peuvent [tre affichfs .vous pouve 



- pressez 
vous remontez dans 1 



- pressez 
vous descendez dans 



3140 PRlNTtl 

3150 PRlNTtl, 

;CHR*(240);"' 

es coups jouîs 

3140 PRlNTtl 

3170 PRINT»," 

;CHR$<241>; 

les coups joufs" 

3180 PRlNTtl 

3190 PRlNTtl," - pressez C 

DPY' : vous revenez en mode jeu" 

3200 L0CATEtl,49, 14:PRINT#l, "Presse 

z <ENTER>" 

3210 HHILE INKEY»OCHR»(13):WEND 

3220 CLS41 

3230 PRlNTtl," Si vous 'donnez vo 

tre langue au chat' , appuyez sur la 

touche 'TAB' .L'or- -dinateur af 
fichera la solution ." 
3240 PRlNTtl 
3250 PRlNTtl," Le nombre de coups 

maximum dont vous disposez dCpend 
du niveau que vous avez choisi 

3260 PRlNTtl 
3270 PRlNTtl," 

- DCbutant 16 coups" 

3280 PRlNTtl >BK 



,-TR 



3290 PRlNTtl," >LK 

- Confirme 12 coups" 

3300 PRlNTtl 
3310 PRlNTtl," 

- Expert 08 coups" 

3320 PRlNTtl 

3330 PRlNTtl , " Le nombre de coups >FN 

joufs est en permanence affich: da 
ns le bas de 1 ' îcran . " 
3340 LOCATEtl.49, 14:PRINTtl, "Presse 
z (ENTER;-" 

3350 UHILE INKEYtOCHR$(13> :I€ND 
3360 CLStl 

3370 PRlNTtl," Pour valider une c 
ombinaison .appuyez sur ENTER" 
3380 PRlNTtl 

3390 PRlNTtl." L'ordinateur rfpond 
@ la combinaison que vous lui avez 
soumis par des pions blancs et de 
s pions noirs ." 
3400 PRlNTtl 

3410 PRlNTtl," - Pion blan 
c : la couleur est prfsente dans la 

combinaison S trouver mais 

elle est mal plade ." 
3420 PRlNTtl 

3430 PRlNTtl." - Pion noir 
: la couleur est prîsente dans la 

combinaison e trouver et e 
lie est bien placle ." 
3440 PRlNTtl 
3450 PRlNTtl," 

Voile ,@ vous de jouer !" 
3460 L0CATEtl,49, 14:PRINTtl, "Presse 
z <ENTER>" 

3470 NHILE INKEY»<.)CHR*U3):WEND 
3480 MODE 1:G0T0 160 
3490 '»*»♦*♦»**»» NIVEAU DE JEU 
3500 CLS 
3510 L0CATE 1 1,2: PRINT "Quel niveau >TR 

de jeu" 

3520 L0CATE 11,4:PRINT " dîsirez-v >PC 
ous ? " 

3530 L0CATE 1,10:PR1NT" <1>.. >MG 
.DEBUTANT... 16 coups":PRINT 
3540 PRINT" <2>. . .CONFIRME.. . >XB 

12 coups":PRINT 

3550 PRINT" <3>... EXPERT ... >»C 



GL 
>JY 



>GE 



Tx 



>6H 
>KT 

>TA 

■BN 
>ND 
>YJ 
>ZH 



•GF 


08 coups": PRINT 




>LH 


3560 A«=INKEY» 


■W 




3570 IF A*<"1" OR A$>"3" THEN GOTO 


>co 




3560 






3580 IF A»="l" THEN C0UPMAX=16 


>XK 


>BH 


3590 IF A*="2" THEN C0UPMAX=12 


■XH 


>LR 


3600 IF A»="3" THEN C0UPMAX=8 


WE 




3610 GOTO 170 


>FD 



IS 

3630 SYMBOL AFTER 64 >PC 

3640 SYMBOL 64,WO,«0,W8,M:,!i7C,!i >GV 

CC&76 

3650 SYMBOL I23,W,48,43C,W4,17E,!| >GB 

60,&3C 

3660 SYMBOL l25,l40,H0,KC,W6,t7E >JB 

,WO,«C 

3670 SYMBOL 91,M8,«4,t 1 3C,! 1 66,t,7E, >HY 

ti60, 43C 

3680 RETURN >GA 

3690 ' 1I1 II H1H TABLEAU DE CLASSEM >ZA 

ENT 

3700 MODE 1 ;PF 

3710 L0CATE 13,10:PRINT"Donnez votr >X 

e nom : " 

3720 L0CATE 16,12:PRINT" " ,>BU 



3620 '*♦«»«»«* CARACTERES FRANCA >YD 



3730 J=0:B*="" >JH 

3740 L0CATE 16+J,12:PRINT CHR*(24i; >PR 

■."iCHR$(24> 

3750 A»=UFPER<( INKEY»): IF A*="" THE >MD 

N GOTO 3750 

3760 IF A*=CHR*(17F) THEN B0T0 3840 >AH 

3770 IF A*=CHR»(13) THEN GOTO 3890 >ZV 

3780 IF J=10 THEN GOTO 3750 >l* 

3790 LOCATE 16+J,12:PRINT A* >NL 

3800 J=Jtl >KE 

3S10 B«=B*+A» >AK 

3820 IF J=10 THEN GOTO 3750 >UQ 

3830 GOTO 3740 >NF 

3840 IF J«0 THEN GOTO 3750 >TX 

3850 IF J=10 THEN GOTO 3870 >UX 

3860 LOCATE 16+J,12:PRINT"." W 

3870 B»=LEFT«(6»,LEN(B»)-1) >VJ 

3880 J=J-1:60T0 3740 >NM 

3890 B*=6»+STRING»(10-LEN(B»>,"»"> >BA 

3900 N0M*=B» >CA 

3910 MODE 1:RETURN >NV 

3920 ' IIUIIIIIII CLASSEMENT >YG 

3930 NB=PEEK(164D0):iF NB=1 THEN A= >HH 
liBOTQ 4030 

3940 FOR A=l TO NB >LD 

3950 SC0RE=f>EEK(!.64D0+A*ll) ,'WF 

3960 IF C0UP3(=SC0RE THEN INF=1:G0T >JF 
3980 

3970 NEXT A:INF=0:GOT0 4020 >VA 

3980 INF=l:ADR=!c64D0+A+(A-l)»10:L0N >RZ 
G=1,65AD-ADR+1 

3990 FOR la) TO 10 >LÛ 

4000 CALL i,6600,«>5AD,M>5AE,LONG >ZF 

4010 NEXT >K6 

4020 IF INF=0 THEN A=NB >QF 

4030 FOR 1=1 TO 10 >LB 

4040 A*=MID»(N0M*,I,1I >0C 

4050 POKE M>4DO+(I-ll+A+((A-l>tlO), >GD 



' 
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ASC(At) 

4060 N£XT I 

4070 HODE 2:UK 1,0 

4080 TEXT*="LE CERVEAU":FOR 1=1 TO 

2 

4090 FOR J=l TO LEN(TEXTf) 

4100 ORIBIN 90-<I»45)+J*(8*I), 250-1 

• 16 

4110 CALL 45015.1, ASC (MID*<TEXT»,J, 

i ) ) : SOUND 1,INT((RND(1)+1)*100>,10 

4120 ORIGIN 520- ( 1*45) +J* (B*I » , 250- 

1*14 

4130 CALL 45015,1. ASC (MIDt iTEXIt. J. 

1 ) i : SOUND 1,INT<(RND(1)+1)*100),10 



4140 NEXT J 


>VF 


4150 NEXT I 


>VF 


4160 FOR J=l TO LEN(TEXT»i 


>UJ 


4170 ORIBIN 45+J»8,202 


>QJ 


4190 CALL 45015, 1,ASC(MID*(TEXT»,J, 


>RY 


1)):S0UND 1,INT((RND(1)+1>»100),10 




4190 ORIBIN 475+J*B,202 


« 


4200 CALL 45015,1, ASC(MID*(TEXT*,J, 


RQ 


1 ) ) : SOUND 1,INT((RND(1>*1)*100),10 




4210 NEXT J 


>VD 


4220 TEXTÎ-'Appuyez sur une touche" 


ng 


4230 FOR J=l TO LENITEXT») 


U6 


4240 ORIBIN 40+J*24,19 


,0F 



4250 CALL 45015,3,ASCIMID$(TEXT«,J, >R¥ 
1)):SDUND 1.INT1 |RND(1)+1H100) ,10 
4260 NEXT J >YJ 

4270 ORIBIN 0,0 >ÏE 

42B0 PLOT 199,368,1:DRAW 209,0,1:0 >XC 
RAW 0,-338, 1 : PLOTR 1.0,1:DRAW 0.3 
38,1 

4290 PLOT 408,30. kDRAW -209,0,1:0 ,ïB 
RAW 0,33B,1:PL0TR -1.0,1:DRAW 0,- 

4300 PLOT 198,36B,1:DRAW 0,20,1:PL >W1 
OTR 1,0,1:DRAMR 0,-20,l:PL0T 198,38 
8,1 

4310 DRAW 210,0, 1:DRAUR 0,-20,1:PL >AD 
OTR 1,0. l:DRAWR 0,20,1 
4320 PLOT 299,3B8,1:DRAW 0,-358.1: M 
PLOTR 1,0.1: DRAW 0,358,1 
4330 TA6 <ZD 

4340 PLOT 200,384 >LK 

4350 PRINT" NOM "i iRB 
4360 PLOT 303,384 >LR 

4370 PRINT" NB DE COUPS ": >VL 
43B0 TAGOFF 'BH 

4390 POKE 464D0+A*11.C0UP3 ;>UR 
4400 FOR 1=1 TO NB ;>LP 

4410 LOCATE 27,2*1 >ML 

4420 FOR J=l TO 10 >LF 

,4430 PRINT CHR*(PEEK(464D0+J+(I-1)« >GQ, 



11)); 

4440 NEXT J 
4450 LOCATE 44,2*1 
4460 PRINT PEEK(464DB+(I-1I»11! 
4470 NEXT I 

4480 IF INF=0 THEN LXATE 26.2+NB E 
LSE LOCATE 26,2+A 
4490 PRINT")" 

4500 IF INF=0 THEN LOCATE 37,2+NB E 
LSE LOCATE 37,2+A 
4510 PRINT'C" 

4520 IF INF=0 THEN LXATE 39,2+NB E 
LSE LOCATE 39,2+A 
4530 PRINT"»»»" 
4540 IF INF=0 THEN LOCATE 47,2+NB E 
LSE LOCATE 47,2+A 
4550 PRINT"\««":INK 1,24 
4560 WHILE INKE¥*="":WEND 
4570 «ODE 1:NB=NB+1:IF NB>20 THEN N 
B=20 

4580 POKE 464D0.NB 
4590 LOCATE 7, 12:PRINT"Voulez-vous 
retire une partie ?" 
4600 A»=UPPER«(INKEY»):IF AJ="" THE 
N GOTO 4600 

4610 IF A*="0" THEN BOTO 110 
4620 IF AlO-N" THEN BOTO 4560 
,4630 MODE 2: END 



>VJ 
MP 

>YX 
WA 

>UT 

>PC 
>UP 

:ND 
UN 

NN 

m 

,>UF 
JVC 

FT 

m 

.•PH 




BLUE-CARDS 



Manuel DA SILVA 



Aurez-vous assez de 
mémoire visuelle pour 
réussir à réunir deux 
par deux chacune des 
vingt-quatre cartes en 
moins de 25 coups ? 
Essayez voir, à la 
rédaction, nous n'avons 
pas pu descendre en 
dessous de 27... 
Blue-Cards, avec des 
cartes comportant des 
dessins ou des mots, du 
brainstorming en 
perspective pour les 
jours de pluie. 






V 




10 REM a*************************** >YH 


20 REM ♦« 






#* >DJ 


30 REM *»* 


BLUE-CARDS 




» >TE 


40 REM M» 

* 

50 REM *♦» 

60 REM *»* 






»* >EA 


(0 1988 NOGENT 




«» >VK 






»* >EC 


70 REM *« 


D.S. MANUEL 




»« >TQ 



80 REM **» ** 


•EE 


90 REM #t******#**#**#**«*tt***t**** 


>ZH 


100 REM 


TH 


110 MODE 0:CLEAR:CALL 4BC02:PAPER 


>XX 


:PEN 1:C=2:B=3:I=1 




120 INK 0,0:1*: 1,26:INK. 2,4:INK 3, 


MP, 


12:BORDER 0:PAPER 0: IV*=CHRi<24! 




130 CALL 4BB48:P0KE 4BDEE.4C9 


M 


140 SYMBOL AFTER 32 


>NC 


150 SYMBOL 110,6,6,6,6,6,102,60,0 


ZJ 


160 SYMBOL 112,104,96,96,96.96,98,2 


>E1 


54,0 




170 SYMBOL 117,60,102,96,96,96,96,3 


LA 


2,28 




180 SYMBOL 11B,0, 0,0,0,0, 0,254,254 


AH 


190 SYMBX 119,254,98,96,96,96,96,1 >GT 


04,120 




200 SYMBOL 124,126,102,102,102,102, 


,'JJ 


102,102,0 




210 SYMBX 125,102,102,102,102,102, 


•>LG 


102,252,252 




220 SYMBX 126,192,192,192,192,192, 


,JJ 


102,60,0 




230 SYMBX 127,102,102,102,102,102, 


JC 


108,248,0 




240 SYMBX 128,96,96,96,98,102,254, 


>EN 
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254 

250 SYMBOL 129,102,102,102,102,102, >HA 

102,60,0 

260 SYMBOL 130,108,102,102,102,102, >JV 

102,226,0 

270 SYMBOL 131,24,60,102,102,102,10 >JF 

2,126,126 

280 SYMBOL 132,252,102,102,102,102, >LM 

100,124,124 

290 SYMBOL 133,60,102,192,192,192,1 >LL 

92,192,192 

300 SYMBOL 134,248,108,102,102,102, >LM 

102,102,102 

310 SYMBOL 135,240,240,96,96,96,96, >FC 

96,96 

320 SYMBOL 136, 102, 102, 102, 102, 102, >LY 

102,102,102 

330 SYMBOL 137,252,102,102,102,102, >LQ 

102,124,124 

340 X*="PRESS£Z UNE TOUCHE ":Z*=X* >EE 

350 CLS:TI$=CHR*(132)+CHR*(135>+CHR JGD 

*(136)tCHR*(119)tCHR$(118)tCHR»(133 

)+CHR$(131)+CHR*(137)+CHR»(134)+CHR 

*(117) 

360 TIl»=CHR»(125>+CHR«(128HCHR*ll >PF 

29)*CHR*(112)*" "+CHR*(126)+CHRJ<12 

4)tCHR$(130)*CHR*(127)tCHR$(110) 

370 aS:MNDOWU,5,l6,22,25:PAPER#l >XA 



?,8:CLS*1:PEN»1,I 



380 PEN#l,0:PRINT»l,CHR*(212)TflB(12 >NP 

)CHR$(213);:PRINT#l:PRINTtl:PRINT*l 

,CHR»1215)TAB<12)CHRS(214); 

390 Y=23:Y1=24 ->UH 

400 MHILE INKEY*="" >NE 

410 WHILE INKEYJO UEND >VH 

420 PEN C:L0CATE 6,Y:PRINT IV$TI*IV >XV 
$:PEN B:L0CATE 6,Y1:PRINT IWIWIY 
» 

430 C=C+1:B=B+1: 1=1+1 >F' W 

440 IF C>13 OR B>13 OR D13 THEN O >TJ 
1 : B=2: 1=3 ELSE IF C=5 OR 6=5 OR 1=5 
THEN C=C+1:B=B+2:I=I+1 
450 IF PASS=0 THEN FOR X=l TO 18: LO >LM 
CATE 1,25*X:PRINT CHR*(11):F0R Z=l 
TO 150:NEXT Z.X 

460 IF IOB THEN PEN B:LOCATE 2,24: >BX 
PRINT MID»(Z», 1, 18) ; :Z*=MID*(Z*,2> : 
IF LEN(Z»K19 THEN Z*=Z*+X* 
470 BORDER l >EH 

480 FOR H=l TO 36:M0VE 0,398-H*10: >CM 
DRAM <H+1!*60,40,I:NEXT H 
490 PASS=1:Y=5:Y1=6:«END >V6 

500 ' >"F 

510 MODE 1 >HE 

520 SYMBOL AFTER 32 >NE 

530 DIM CARTE*(24),CAR»(24>,CAR1*<2 >AA 



4),CH(24):REC=25:ES=1 

540 MODE 1:INK 0,0:11*. 1,26:1*: 2,4 >XR 

:INK 3, 12: BORDER 0: PAPER 2: IV»=CHR* 

(24) 

550 OUT &8C00,2:DUT 4BD0O, 46: OUT &B >VF 

C00,7:0UT UD00.30 

560 SYMBOL 110,72,72,136,145,162,68 >HE 

,72,144 

570 SYMBOL 111,56,88,152,24,24,24,5 >EP 

6,84 

580 SYMBOL 112,48,56,92,148,20,0,1, >CH 

590 SYMBOL 113,90,60,24,60,60,24,25 >FR 

5,255 

600 SYMBX 114,0,0,1,3,5,1,128,224 >AH 

610 SYMBOL 115,14,13,249,225,65,34, >ET 

5,10 

620 SYMBOL 116,36,20,146,202,169,14 >HH 

8,76,38 

430 SYMBOL 117,4,4,8,8,16,17,34,36 >AT 

640 SYMBOL 118,8,17,35,71,135,11,27 >DV 

,56 

650 SYMBX 119,138,138,138,10,6,2,1 >FF 

93,96 

660 SYMBOL 120,189,153,153,153,153, >HD 

153,153 

670 SYMBOL 121,82,81,80,80,96,64,12 >DA 

8,0 

680 SYMBOL 122,16,8,132,66,33,16,24 >DK 

,12 

690 SYMBOL 123,64,64,32,32,16,144,7 >M 

2,8 

700 SYMBOL 124,0,0,0,0,0,1,2,2 Mi 

710 SYMBOL 125,64,64,64,132,132,4,4 >C« 

,4 

720 SYMBOL 126,36,40,41,40,36,35,39 >EY 

,106 

730 SYMBOL 127,24,24,153,90,90,153, >SJ 

24,219 

740 SYMBOL 128,36,20,148,20,36,196, >HQ 

100,212 

750 SYMBOL 129,4,4,4,66,66,65,64,32 >BN 

760 SYMBX 130,0,0,0,0,0,0,128,128 >AF 

770 SYMBOL 131,0,0,0,0,0,0,0,0 >MJ 

7B0 SYMBOL 132,31,32,69,65,65,65,64 >EC 

,64 

790 SYMBOL 133,129,96,224,33,34,2,1 >FH 

29,66 

800 SYMBOL 134,255,255,126,255,24,2 >HX 

4,24,24 

810 SYMBX 135,129,2,7,132,68,64,12 >ER 

9,66 

820 SYMBX 136,240,8,164,132,132,13 >FE 

2,4,4 

830 SYMBX 137,0,0,0,0,0,0,0,0 >HX 
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840 REM :>UJ ID»(T*,Z,1) 1460 SYMBOL 177,1,5,2,4,8,28,32,255 ?BX 

850 a*=CHR»(131!+CHR*(132)+CHR»(133 >AG 1160 NEXT >KK 

)+CHR*(134i+CHR*(135)+CHR*(136)+CHR 1170 80SUB 4490 >XJ 1470 SYMBOL 17B, 169,207,49, 1,1,1,1, ;>DR 

«(137) 1180 A»=UPPER*U*EY»):IF A*="" THE >BC 255 

860 b$=CHR$ ( 1 24) +CHR* ( 125) +CHRJ 1 126 >flP N 1180 1480 M»*»»»»»»»»»»»»»******»»*»» ,>YF 

)+CHR$(127)+CHR«U28)+CHR$(129)+CHR 1190 IF A*="T" THEN CH0IX=t ELSE CH >BC « m » n 

$(130) 0IX=0 1490 '»«»♦«*» FENETRE »*«*»*»•»*»»» ,>YB 

870 c*=CHR*U17)+CHRJ(118)tCHR*U19 >AC 1200 IF MOT AND MOCHRK13] TH >FE «HH CARTE*(3> ♦*** 

)+CHR*(120l+CHR*(121>+CHR»(122)+CHR EN 1180 1500 SYMBOL 179,255, 12B, 135,132,133 >NL 

«(123) 1210 PAPER 1:FCR X=l TO 25 >TB ,133,133,133 

880 d$=CHR* (110) +CHR$ ( 11 1 î +CHR* (112 >AQ 1220 LOCATE 1,25+X:PRINT CHRtdl) Xf 1510 SYMBOL 180,255,0,255,0,255,250 >JC 

)+CHRt(113)+CHRt(114)+CHR$lll5)+CHR ,245,233 

«(1161 1230 FOR Z=l TO 50:NEXT Z,X >VD 1520 SYMBOL 181,255, 1.225,161,33.33 GR 

890 REM >VD 1240 PAPER 0:CLS:INK 0,0:1*. 1,26:1 >B6 .33,33 

900 Y=10:X=2: PAPER 1:PEN >UH W, 2,6:1* 3,2:B0RDER 1530 SYMBOL 182,133, 133,133,133,133 >MF 

910 FOR X=2 TO 17 >EF 1250 OUT S<BC00,2:DUT MD00,45 : OUT >XX ,133,133,133 

920 LOCATE X,10:PRINT IV»a»IVt >Y6 4BC00,7:0UT Î.BD00.28 1540 SYMBOL 183,233,233,235.233,233 ,-NM 

930 LOCATE X.lhPRINT IV*b»IV* >ZB 1260 ' Hmmimm i llHHHHI I I >YB ,233,235,233 

940 LOCATE X,12:PRINT lV*ctIV* >ZE I II II1 IHII I I I 1550 SYMBOL 184, 161,33,33,33,161,33 >Gkl 

950 LOCATE X,13:PRINT IV*dtIV$ ;ZH 1270 '«H4HHHHHHH VISAGE "PROFIL' >YC ,33,33 

960 FOR LX=1 TO 3:L0CATE X-1,Y+LX:P >ZH ' CARTE*(1> ♦» 1560 SYMBOL 185,132,135,132,136,144 >NV 

RINT IV»" "IVS:NEXT 1280 SYMBOL 161,255,128,129,131,135 ,'NL ,160,192,255 

970 NEXT:PAPER 1:PEN 1 : BORDER 26 >AL ,135,132,141 1570 SYMBOL 186,9,249,8,9,10,12,8,2 >BK 

980 LOCATE 1,25:PRINT IV«CHR»(212lI ,'FA 1290 SYMBOL 162,255,0,176,127,158,2 >KR 55 

V»; 49,24,142 1580 SYMBOL 187,33,97,161,17,9,5,3, >DH 

990 LOCATE 40,25:FWNT IV*CHR*(213) >60 1300 SYMBOL 163,255,1,1,1,129,225,1 >6H 255 

IV*; 61,145 1590 ' M*************************** >YH 

1000 FOR T=l TO 7:L0CATE 1,25+TlPRI >PG 1310 SYMBOL 164,144,160,164,156,137 >N9 «tu*»»».*»»»*»*»»» 

NT CHR* (11); ,143,136,144 1600 '«HHHHH VISAGE 'FACE'' ***** >XK 

1010 FOR 1=1 TO 150:NEXT I,T >VQ 1320 SYMBOL 165,14,14,15,26,25,57,1 ,>CN «HH CARTE*(4) ».« 

1020 LOCATE 1,1:PRINT IV$CHR»(212) I >FB ,3 1610 SYMBOL 188,255,129,134,137,151 ;>NN 

V»; 1330 SYMBOL 166,81,49,241,209,81,97 >HH ,148,184,184 

1030 LOCATE 40,1:PRINT IV$CHR«l213) >GR ,193,65 1620 SYMBOL 189,255,179,77,254,73, 1 ;>LE 

IV»! 1340 SYMBOL 167,152,143,129,130,129 ,-NA 78,150,104 

,159,225,255 1630 SYMBOL 190,255,129,97,81,185,7 >HX 

1040 PLOT 17,129,1:DRAW 622,129:DRA M 1350 SYMBOL 168,3,129,1,1,0,0,0,255 >BA 7,13,45 

H 622,385:DRA« 17,3B5:DRAW 17,129:P 1640 SYMBOL 191,182,177,166,163,176 >NT 

EN 2 1360 SYMBOL 169,65,129,1,1,129,65,3 >FA ,176,144,136 

1050 PAPER o:PEN 3 : AZ«="BLUE":AZ1 >LV 3,255 1650 SYMBOL 192,19,133,82,149,19,8, >F6 

Ï="CARDS" 1370 '******#*#*#*****+**#*+***#*#* ,'YD 36,24 

1060 X=3:Y=B:B=33 >LG **»«»*»»**»**» 1660 SYMBOL 193,205,5,205,85,153,25 ;GJ 

1070 FOR S=l TO 12:S0UND 1,15+B >Xfl 1380 ' lllllliun FLEURS CARTEX2) >YE ,17,33 

l ll l l l l l lllin 1670 SYMBOL 194,136,132,135,133,132 >NR 

1080 LOCATE X+S,Y:PRINT CHR«(32)AZ* >DT 1390 SYMBOL 170,255,131,132,136,155 >NM ,152,224,255 

,172,165,164 1680 SYMBOL 195,0,92,62,128,96,31,0 >EM 

1090 LOCATE B-S,Y:PRINT AZ1*CHR*(32 >EF 1400 SYMBOL 171,255,0,152,108,236,9 >KP ,255 

) 8,178,172 1690 SYMBOL 196,65,65,65,129,129,11 >HC 

1100 SOUND 1,450-SlNEXT >RG 1410 SYMBOL 172,255,1,1,1,1,1,1,1 >ZU 3,9,255 

1110 PEN 2:F0R 1=1 TO 6 >PY 1700 '#*******#**♦******##**#*****# >YA 

1120 LOCATE 15,15-I:PRINT STRINGJU >HB 1420 SYMBOL 173,191,145,147,141,133 >NL HlimmillHlIH 

2,45) ,136,136,140 1710 '«HHHHH MODULE IIIH I I I II I II I >YB 

1130 LOCATE 15,16-I:PRINT STRINGK1 >P0 1430 SYMBOL 174,68,196,69,58,34,195 >EB ♦»♦ CARTEK5) ***** 

2, 32) : NEXT ,2,2 1720 SYMBOL 197, 255, 128, 191 , 162, 165 >NP 

1140 T»=". (ENTER). . DESSINS.. (T).. TE >YU 1440 SYMBOL 175,1,145,169,197,229,9 >KN ,170,180,169 

XTES.":T=LEN(T*)\2:F0R Z=l TO LEN(T 3,165,169 1730 SYMBOL 198,255,36,72,144,32,64 >JG 

*) 1450 SYMBOL 176,132,133,134,148,140 >NJ ,128,128 

1150 PEN 3:L0CATE 20-T+Z,15:PRINT M >PL ,132,132,255 1740 SYMBOL 199,255,131,133,137,145 >NA 
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,161,193,131 

1750 SYMBOL 200,146,164,200,144,160 
,192,128,255 

1760 SYMBOL 201,255,128,128,128,126 
,128,128,128 

1770 SYMBOL 202,5,9,17,33,65,129,12 
.9,65 

17B0 SYNBOL 203,129,130,132,136,144 
,160,193,255 

1790 SYMBOL 204,6,9,16,32,64,128,0, 
255 

1800 SYMBOL 205,33,17,137,69,35,17, 
9,255 

1810 ' ***************************** 
******************* 
1820 '**»*»** OISEAU ************** 
*»* CARTE»(6> ***** 
1830 SYMBOL 206,255,128,128,128,128 
,131,128,128 

1840 SYMBOL 207,255,0,112,136,164,1 
32,68,68 
1850 SYMBOL 208,255,1,1,1,1,1,1,1 

1860 SYMBOL 209, 12B, 128, 128, 129, 129 

,130,130,130 

1870 SYMBOL 210,68,132,132,100,84,6 

6,69,34 

1880 SYMBOL 211,1,1,1,1,1,1,1.129 

1B90 SYMBOL 212,131,129,128,128,128 

,128,128,255 

1900 SYMBOL 213,61,128,249,39,36,68 

,132,255 

1910 SYMBOL 214,65,161,81,105,21,11 

,1,255 

1920 ' ***************************** 

**************»*#** 

1930 '»»*»*»* CIBLE HHHHHMHI 

H CARTE» (7) ***** 

1940 SYMBOL 215,255,128,128,128,143 

,140,138,137 

1950 SYMBOL 216.129,129,129,129,129 

,0,0,0 

1960 SYMBOL 217,255,1,1,1,241,49,81 

,145 

1970 SYMBOL 218,248,0,0,0,0,0,0,248 

1980 SYMBOL 219,255,255,255,255,255 

,255,255,255 

1990 SYMBOL 220,31,0,0,0,0,0,0,31 

2000 SYMBOL 221,137,138,140,143,128 

,128,128,255 

2010 SYMBOL 222,0,0,0,129,129,129,1 

29,129 

2020 SYMBOL 223,145,81, 49,241, 1,1,1 

,255 



NM 

NE 
>EP 

* 
>DT 

FB 
>YC 
>YD 

NE 
>JU 

>zc 

>NT 
>HC 
>ZZ 

NF 
iSb 

6F 
>YE 
>YF 

NB 
>6E 

•EA 

m 
m 

,'ZP 

m 

>6N 

,EJ 



^2030 ' miiiiininiiinnnmnn 

******************* 

2040 '»*****» DAMIER I HH I IIIHIH 

*»« CARTE» (8) ***** 

2050 SYMBOL 224,255,240,240,240,143 

,143,143,143 

2060 SYMBOL 225,255,240,240,240,15, 

15,15,15 

2070 SYMBOL 226,255,241,241,241,15, 

15,15,15 

2080 SYMBOL 227,240,240,240,240,143 

,143,143,143 

2090 SYMBOL 228,240,240,240,240,15, 

15,15,15 

2100 SYMBOL 229,241,241,241,241.15, 

15,15,15 

2110 SYMBOL 230,240,240,240,240,143 

,143,143,255 

2120 SYMBOL 231,240,240,240,240,15, 

15,15,15 

2130 SYMBa 232,241,241,241,241,15, 

15,15,255 

2140 'hih h iiihi ihiuhhhiih 

«miinim i inii » 

2150 ' M************** COURONNE *** 

***** CARTE»(9! *** 

2160 SYMBOL 233,0,0,0,0,0,0,0,4 

2170 SYMBOL 234,0,8,8,62,8,8,8,8 

2180 SYMBOL 235,0,0,0,0,0,0,0,16 



>XJ 

MG 
>JV 
>JA 
>HB 
>JV 
>JR 

m 

>JG 
>KL 
>XK 
>¥A 

m 

ïH 
>Y6 

>YK 

FG 



2190 SYMBOL 236,6,3,0,0,0,5,9,17 
2200 SYMBOL 237,8,235,62, 2B, 28, 73 
47,85 

2210 SYMBOL 238,48,224,0,0,0,80,200 >W 
,68 

2220 SYMBOL 239,17,51,6,3,1,1,0.0 >ZE 
2230 SYMBOL 240,42,255,170,255,0,25 >HJ 
5,255,0 

2240 SYMBOL 241,68,230,176,224,64,1 >GX 
28,0,0 

2250 SYMBOL 248,128,64,32,16,8,4,2, >CC 
1 

2260 SYMBOL 249,129,66,36,24,24,60, >HH 
126,255 

2270 SYMBOL 250,1,2,4,8,16,32,64,12 >BF 
8 

2280 'M*************************** >YE 
******************* 

2290 •»*****»****» SABLIER ******** >YF 
***** CARTE* (10) ** 

2300 SYMBOL 242,1,2,4,8,16,32,64,12 >BA 
8 

2310 SYMBOL 243,255,126,60,24,24,36 >HX 
,66,129 

2320 SYMBOL 244,128,64,32,16,8,4,2, >BE 
1 
.2330 SYMBOL 245,129,67,39,31,31,39, >8Y 



'67,129 

2340 SYMBOL 246,129,195,231,255,255 M 
,231,195,129 

2350 SYMBOL 247,129.194,228,248,248 ;>NC 
,228,194,129 

2360 'm*************************** >YD 
******************* 

2370 'M********* DEMON lllll l l ll >YE 
nui CARTEKUt M 

2380 SYMBOL 251,48,192,0,3,4,0,0,0 >AT 
2390 SYMBOL 252,24,5,2,132,40,40,40 >DQ 
,40 

2400 SYMBOL 253,128,0,0,0,0,0,0,0 >ZK 
2410 SYMBOL 254,5,5,4,2,1,1,3,12 >VX 
2420 SYMBOL 255,149,168,16,0,5,0,71 >DH 
,32 

2430 SYMBOL 100,74,164,72,8,16,16,3 >EY 
2,64 

2440 SYMBOL 101,0,0,0,4,6,5,4,5 >XM 
2450 SYMBOL 102,0,0,15,16,32,64,208 >DU 
72 
2460 SYMBOL 103,0,0,128,66,38,26,82 >EA 
,138 

2470 '***#************************* >YF 
******************* 

24B0 *********** HOMME HHHHrtH CA >ÏS 
RTES»(12J ********* 

2490 SYMBOL 90,0,0,0,0,0,0,0,56 >XL 

2500 SYMBOL 91,124,130,170,130,146, >JH 
68,56,16 
2510 SYMBOL 92,56,29.29,15,14,4,0,0 >BQ 

2520 SYMBOL 93,255,255,255,126,124, >L6 

60,124,254 

2530 SYMBOL 94,0,128,192,224,224,11 >KP 

2,112,112 

2540 SYMBOL 96,1,1,1,1,1,3,7,15 >XZ 

2550 SYMBOL 97,239,199,199,199,199, >NB 

199,199,199 

2560 SYMBOL 98,80,0,0,0,0,0,0,128 >ZJ 

2570 '**»»***»»*»******»»*********» >Y6 
******************* 

2580 PLOT 1,1, 3: DRAW 1,398: DRAW 590 >RL 
,398: DRAW 590,1 

2590 G=2:D=6:H=2:B=6:F0R 1=1 TO 6:8 >TY 
OSUB 4750: NEXT 

2600 6=2:D=6:H=8:B=12:FOR 1=1 TO 6: >UL 
GOSUB 4750:NEXT 

2610 6=2:D=6:H=14:B=18:FOR 1=1 TO 6 >VK 
:G0SUB 4750:NEXT 

2620 B=2:D=6:H=20:B=24:FOR 1=1 TO 6 >VE 
:G0SUB 4750:NEXT 

2630 PEN 3:TIT»="BLUE CARDS":FOR 1= >YF 
1 TO LEN(TIT*):LOCATE 40,6+I:PRINT 
MID«(T1T*,I,1):NEXT 
,2640 PEN 1:B=0:PRINT CMR»(22ICHR»(1 :>EX 
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2650 FOR L«i TO 6 >CK 

2660 LOCATE 3+B,l : PRINT L : B=B+6 >ZA 

2670 NEXT >L6 

2680 PRINT CHR*(22)CHR*(0)j >VE 

2690 B=0;FOR L=l TO 6:L0CATE 3+B.7 >AD 

:PRINT 6+L:B=B+6 :NEXT 

27ÛO B=0:FOR L»l TO 6:L0CATE 3+6,13 >BD 

:PRINT 12+L:B=B+6:t£XT 

2710 B=0:FOR L=l TO 6:L0CATE 3+B, 19 >CJ 

iPRINT 18+L:B=B+6!NEXT 

2720 WlND0Wt2,i,37,25,25:PAPER»2,l: >TQ 

CLS»2:PEN#2,3 

2730 CAR*(1)=CHR»(161)*CHR*1162)+CH >JC 

RJII63I 

2740 CARTE» 1 1 ) =CHR* ( 164 I +CHR* (1 65) + >LG 

CHR*U66) 

2750 CAR1*(1>=CHR*(167)+CHR»U68)*C >KQ 

HR»(1691 

2760 CAR*(2)=CHR«(170)+CHR*(171)tCH >JG 

R$(172) 

2770 CARTE*(2)=CHR*1173)+CHR*U74>* >ll 

CHR$(175) 

2780 CARl*(2)=CHR*(176)tCHR*(177)+C )KV 

HW11781 

2790 CAR*(3)=CHR«(179)tCHR$(180)tCH >JK 

R»(1B1I 

2800 CARTE*(3)=CHR*(182)+CHR*(183)» ;>LF 

CHR*(184) 

2810 CARlt(3)=CHR*(185)tCHR*(186)+C >KP CAR» (Z ) =STR IN6* (3, 32 î : CAfilt IZ ) =STRI 

HR*(1B7) j N6»(3,32):NEXT: 

2820 CAR*(4)=CHR*(188)+CHR*(1B9)+CH )JA j 3100 IF CH0IX=1 THEN CARTE* (1) ="FIN 

R»(190) ■:CARTE*(2)="RAT K :CARTE«(3)="S0U":C 

2830 CARTE*(4)=CHR*(191)+CHR*U92) + ,>LK ARTE* (4) ="MQU" : CARTE* (5) ="BQN" : CART 

CHRX193) E*(6>= - MAL":CARTE*(7)="GAI":CARTE*( 

2840 CAR1*14)=CHR*(194)+CHR*(195!*C >KU 8)="P0U":CARTE*(9)="SON";CARTE*U0l 

HR*(196) ="TIR":CARTE*(11!="SAC":CARTE*(12)= 

2850 CAR*(5)=CHR*(197)+CHR*(198)+CH >JP ' "MAC" 

R«H99) j 3110 carts*(24)=carte*(12>:car*(24) 

2860 CARTE*(5)=CHR*(200)+CHR*(201)+ >LX j =car*(12):carl*(24)=carl*(12) 

CHRK202) ' 3120 I=1:FQR 11=13 TO 24:car*(M)=car 

2870 CAR1*(5)=CHR*(203)+CHR*(204)*C >JC ' *U):carl*(M)=carl*(I):CARTE*(M>=CA 

HR*(205> RTE*(I):I=1+1:NEXT 

2880 CAR*(6)=CHR*(206)+CHR*1207>+CH >JP j 3130 REh 

R*(208) 

2890 CARTE*(6)=CHR*(209)+CHR*<210)* >LZ 

CHRV2U) 

2900 CARl*(6)=CHR«(212)+CHR*(213)tC >JX 

m» (214) 

2910 CAR*(7)=CHR*(215)*CHR*1216)+CH >JJ 

R*(217) 

2920 CART£*(7)=CHR»<218)+CHR*(219)+ >LD 

CHR*(220) 

2930 CAR1*(7)=CHR*(221)+CHR*(222)+C >JB 

HR»(223) 

2940 CAR*(8)=CHR*(224)+CHR*(225)+CH >JN 



R»(226) 

2V50 CARTE*(8)=CHR*(227)*CHR*(228!+ 

CHR*(229> 

2960 CAR1*(B)=CHR*(230)*CHR*(231!+C 

HR»(232) 

2970 CAfi*(9)=CHR*(233)*CHR*(234)+CH 

R»(235l 

2980 CARTE*<9)=CHR*(236)*CHR*1237)+ 

CHR*(23B> 

2990 CARI* (9)=CHR* (239) +CHR* I240I+C 

HR*(241) 

3000 CAR*(10)=CHR*(242!+CHR*(243)*C 

HR*(244) 

3010 CARTE* ( 10) =CHR* (245) +CHR* (246) 

+CHR*(247) 

3020 CAR1*U0)=CHR*(248I+CHR*(249> + 

CHR*(250) 

3030 CAR*(ll)=CHR*(101)*CHR*il02m: 

HR*(103) 

3040 CARTE»(1!)=CHR*(254)+CHR*(255) 

+CHR*(100) 

3050 CARl*(lll=CHR*(251)+CHR*(252>+ 

CHR*(253) 

3060 CAR* ( 12) =CHR* (90) +CHR* (91 ) +CHR 

*(137) 

3070 CARTE*(12)=CHR*(92)+CHR*(93)»C 

HR*(94) 

3080 CARl*(12)=CHR»(96)*CHR»(97)tCH 

R*(98) 

3090 IF CH0IX=1 THEN FOR Z=l TO 24: 



3140 REM NELAGE LES CARTES 
3150 

3160 CLS»2:PEN#2,2 
3170 L0CATE#2,4,2:PRINTt2, u UN MOMEN 
T, JE MELANGE LES CARTES." 
3180 FOR S=l TO 24 
3190 RANDOMIZE TIME 
3200 CH(S)=INT(RND*24)*1 
3210 L=l 

3220 FOR R=l TO S 
3230 IF CH(S)=CH(S-L) THEN 3190 
,3240 L=L*1 



3250 NEXT R,S 

3260 PRINT CHR*(22)CHR*(0); 

3270 CLS*2:PEN»2,0 

3280 PEN»2,2:L0CATE»2,2, 1:FRINT#2, " 

ESSAI";STRING*(-<ES>1),"S");ES;")K 

";:PEN#2,0:PRINT»2, "CARTE A RETOURN 

ER :"; 

3290 PEN#2,2:INPUT#2,"",N* 

3300 N=VAL(N*I 

3310 IF N<1 OR N>24 THEN GOSUB 4710 

: GOTO 3270 
3320 N=VAL(N*): IF Nil OR N>24 THEN 
GOSUB 4710 : GOTO 3270 
3330 

3340 IF N=l THEN x=3:y=4 
3350 IF N=2 THEN x=<?:y=4 
3360 IF N=3 THEN x=15:y=4 
3370 IF N=4 THEN x=21:y=4 
3380 IF N=5 THEN x=27:y=4 
1390 IF N=6 THEN x=33:y=4 
3400 IF N=7 THEN x=3:y=10 
3410 IF N=B THEN x=9:y=10 
3420 IF N=9 THEN x=15:y=10 
3430 IF N=10 THEN x=21:y=10 
3440 IF N=ll THEN x=27:y=10 
3450 IF N=12 THEN x=33:y=10 
3460 IF N=13 THEN x=3:y=16 
3470 IF N=14 THEN x=9:y=16 
3480 IF N=15 THEN x=15:y=16 
3490 IF N=16 THEN x=21:y=16 
3500 IF N=17 THEN x=27:y=16 
3510 IF N=18 THEN x=33:y=16 
3520 IF N=19 THEN x=3iy=22 
3530 IF N=20 THEN x=9:y=22 
3540 IF N=21 THEN x=15:y=22 
3550 IF N=22 THEN x=21:y=22 
3560 IF N=23 THEN x=27:y=22 
3570 IF N=24 THEN x=33:y=22 
3580 C=CH(N) 

3590 IF CARTE*(C>=" - THEN GOSUB 471 
: GOTO 3270 

3600 IF N=NN OR NN=N THEN GOSUB 471 
: GOTO 3270 
3610 X1=X:Y1=Y 
3620 REM 

3630 REM ♦»**♦** AFFICHAGE DES CART 
ES **#**#*# 
3640 REM 
3650 PEN 1 

3660 LOCATE x,y-l:PRINT IV*CAR*(C)I 
V* 

3670 LOCATE x,y:PRINT W*CARTE*(C)I 
V* 

3680 LOCATE x,y+l:PRINT IV*CAR1*(C) 
IV* 

3690 REM 
.3700 REM HHHHH» ENTRER LES CARTES 



■MG 

>vx 
m 

>PQ 



>YB 

RJ 
>RT 

TM 
>TL 
>TV 
-TU 

TE 
•TH 
iUJ 
■'UC 
>UL 
>UK 
>UJ 
>UT 
>UY 

>ux 

>w 
>uv 

■UJ 
UH 

UN 

•un 
>IM 

>uv 

EH 

>m 



.•BE 
>AC 
>U 

>AE 

,GD 
>FV 

.66 

>8J 

>AK 

,>GZ 



29 



Hum 


1 


3710 REM 


>AC 


3720 CLS#2:PEN#2,0 


M 


3730 PEN#2,3:LXATE#2,2,1:PR1NT#2," 


■>EJ 


ESSAI";STRIN6*<-(ES>1),"S");ES;")»( 




■;:PEN#2,0:PRINT#2, "CARTE A RETOURN 




ER :"j:PEN #2,3 




3740 INPUT#2,"",NN* 


>NB 


3750 NN=VAL(NN») 


>LK 


3760 IF NN<1 OR NN>24 THEN GOSUB 47 


>NZ 


10: GOTO 3700 




3770 NN=VAL(NI«): IF NN<1 OR NN>24 


>CZ 


THEN GOSUB 4710:GOT0 3700 




37B0 


■Zfi 


3790 IF NN=1 THEN x=3:y=4 


>TV 


3B0O IF NN=2 THEN x=9:y=4 


.TU 


3810 IF NN=3 THEN x=15:y=4 


>UP 


3820 IF NN=4 THEN x=21:y=4 


.•UN 


3830 IF NN=5 THEN x=27:y=4 


>ux 


3B40 IF MN=6 THEN x=33:y=4 


uw 


3850 IF NN=7 THEN x=3:y=10 


>UR 


3860 IF NN=8 THEN x=9:y=10 


>UA 


3870 IF NN=9 THEN x=15:y=10 


>VX 


3880 IF NN=10 THEN x=21:y=10 


m 


3890 IF NN=11 THEN x=27:y=10 


>VA 


3900 IF NN=12 THEN x-33:y=10 


-VP 


3910 IF NN=13 THEN x=3:y=16 


>VH 


3920 IF NN=14 THEN x=9:y=16 


'M 


3930 IF NN=15 THEN x=15:y=l6 


>vc 


3940 IF NN=16 THEN x=21:y=16 


■VB 


3950 IF NN=17 THEN x=27:y=16 


•m 


3960 IF NN=18 THEN x=33:y=16 


m 


3970 IF NN=19 THEN x=3:y=22 


m 


3980 IF NN=20 THEN x=9:y=22 


>VH 


3990 IF NN=21 THEN x=15:y=22 


>vc 


4000 IF NN=22 THEN x=21:y=22 


VG 


4010 IF NN=23 THEN x=27:y=22 


•VQ 


4020 IF NN=24 THEN x=33:y=22 


>Vf 


4030 


>XK 


4040 COCH(NN) 


>VB 


4050 IF N=NN OR NN=N THEN GOSUB 471 >«L 


0:S0T0 4170 




4060 IF CARTE»(CC)="" THEN GOSUB 47 >NK 


10 :GOTO 3700 




4070 REM 


,'AC 


4080 REM ******* AFFICHER 2EME CAR >KK 


TE ********* 




4090 REM 


>AE 


4100 PEN 1 


>FE 


4110 LXATE x,y-l:PRINT IV*CAR»(CC 


■eu 


IV» 




4120 LOCATE x,y:PRINT IV$CARTE«(CC 


;hc 


IV» 




4130 LOCATE x,y+l:PRINT IV»CAR1»(X >HF 


)IV* 




4140 FOR T=l TO 1000:NEXT 


>TV 


4150 IF CARTE»<C)=CARTE»(CC) THEN C >ZD 



M*\ 



ARTE*(C)="":CARTE$(CC)="":SC=SC*1:E ¥ 

S=ES+1:G0SUB 4570 : C=0:CC=0:NaJ:NN 

=0: IF SC=12 THEN 4300 ELSE 3270 

4160 REM >AC 

4170 REM MHHtiHM REFERMER FENE >PW 

TRE *********** 

4180 REM >AE 

4190 PEN 3 >GF 

4200 LXATE x,y-I:PRINT STRIN6*(3,1 >HV 

43); 

4210 LXATE x,y:PRINT STRING«(3,143 >FE 

); 

4220 LXATE x,y*l:PRINT STRIN6»(3,1 >HV 

43); 

4230 LXATE xl,yl-l:PRINT STRING»(3 >KY 

,143); 

4240 LXATE xl,yl:PRINT STRING»(3,1 >H0 

431; 

4250 LXATE xl,yl+l:PRINT STRING*(3 >KY 

,143); 

4260 PEN hGOSUB 4670 >PJ 

4270 ES=ES+1: IF SC=12 THEN 4300 >YB 

4280 N=0:NN=0:C=0:CC=0:GOTO 3270 >AY 

4290 REM >AG 

4300 REM ********** FENETRE SCORE F >RL 
INAL ************ . 

4310 REM >ZK 

4320 HlND0H#3,4,34,5,13:PAPERt3,l:C >RR 
LS#3:PEN#3,3 

4330 a$=CHR»(150)+STRIN6*(29,154)+C >KX 
HR»(156) 

4340 LXATE 13,1, 1:PRINT#3, a»; >YJ 

4350 FOR T=l TO 7 >DH 

4360 L0CATE#l,l,l+T:PRINTt3,CHR*(14 >ZJ 
9)TAB(31)CHRt(149); 

4370 NEXT >LF 

4380 a*=CHR»(147)+STRING»(29,l54)+C >KF 
HR*(153> 

4390 LXATE#3,l,9:PRINT#3,af; >YD 

4400 IF REDES THEN REC=ES >VN 

4410 LXATE#3, 11, 3:PRINT#3, "RESULTA >KQ 
TSl'j 

4420 LXATE #3, 4,5:PRINT#3, "RECORD >EY 
:";REC;" ESSAIS.. :";ES 
4430 LXATE #3,4, 7:PRINT#3, "UNE AUT >JB 
RE PARTIE (0/N) "CHRK143) 
4440 R»=UPPER«(INKEY*):IF R*="" THE >HK 
N 4440 

4450 IF R»="0" THEN CLS:SC=0:ES=1:G >JM 
OTO 540 

4460 IF R*="N" THEN CALL >RV 

4470 IF R*<>"0" OR R$<>"N" THEN 444 >AE 


4480 REM 'AH 

4490 REM ********** MOTIF SONORE I >ZV 
k NTRO ******************* 



4500 REM >AA 

4510 SOUND 1,239, 150,5,2:SOUND 2,23 >ND 

9,5O,5,2:S0UND 2, 190, 100, 5, 2: SOUND 

4,239, 100, 5, 2: SOUND 4,159,50,5,2 

4520 SOUND 1,239, 100. 5, 2: SOUND 2,17 >HE 

9,10O,5,2:S0UND 4,142,100,5,2 

4530 SOUND 1,239, 100,5,2:S0UND 2,19 JGT 

0, 100,5, 2:S0UND 4,95,100,5,2 

4540 SOUND 1,190,100,5,2:S0UND 2,11 >GJ 

9, 100, 5, 2: SOUND 4,80,100,5,2 

4550 RETURN ;-FH 

4560 REM >AG 

4570 REM »*♦**»**»* MOTIF SONORE TR >A6 

OUVE ******************* 

4580 REM >AJ 

4590 ENV 2,10,1,1,7,-1,5,1,0,20 >»U 

4600 ENT 1,30,1,1,1,-30,5,30,1,1,1, >LT 

-30,5,30,1,1 

4610 ENT 4,10,-1,1,30,1,1,10,6,2 >XM 

4620 FOR S0N=1 TO 2 >MV 

4630 SOUND 1,119, 100, 4, 2, Il SOUND 2, >NM 

95,100, 4,2,1:S0UND 4,80,100,4,2,1 

4640 NEXT >LF 

4650 RETURN >FJ 

4660 REM >AH 

4670 REM ****************** REPONS >AV 

E FAUSSE ***************** 

4680 REM >AK 

4690 SOUND 1,110, 10, 5: SOUND 1,100,1 >YU 

0,5:SOUND 1,90,10,5:S0UND 1,180,10, 

5:S0UND 1,70,10,5:SOUND 1,60,10,5:8 

OUND 1,50, 10, 5: SOUND 1,40,10,5 

4700 RETURN >FE 

4710 REM >AD 

4720 REM ************* ERRE >LH 

UR *************** 

4730 SOUND 1, 10, 10, 5: SOUND 1,20,10, )VU 

5: SOUND 1,170,10,5 

4740 RETURN >FJ 

4750 LI*=CHR*(150)+STRING»(3,154)*C >LA 

HR*(156) 

4760 LI1*=CHR*U47)+STRING*(3,154) + >LF 

CHR$(153) 

4770 REM >AK 

4780 REM ************* FENETRES PAG ;>ZQ 

E JEU ******************* 

4790 REM >BB 

4800 NIND0N#1,G,D,H,B:PAPER#1,3:CLS >PT 

tl:PEN#l,0 

4810 PRINT#1,LI»CHR»(149)TAB(5ICHR« >DF 

(149)CHR$(149)TAB<5)CHR»I149)CHR»(1 

49ITAB(5)CHR»(149)LI1«; 

4820 6=D+2:D=6+4 >GD 

4830 RETURN >FJ 

4840 REM ************** FIN DU LIST >ZN 

IN6 ********************* • 
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COULMELO 

JEU DES MELANGES DE COULEURS 

Jean REINGOT 



Si vous savez ce que vous obtenez en mélangeant du 
rouge avec du bleu, ou du bleu avec du jaune ou encore 
du jaune avec du rouge : c'est que le mélange des cou- 
leurs n'a plus aucun secret pour vous. 
Pourtant, ce qui vous esf proposé ici n'est pas aussi sim- 
ple et vous trouverez certainement qu'à partir du niveau 
cinq, c'est de moins en moins éviaent. 
L'auteur a jugé bon d'avertir les utilisateurs que la vision 
des couleurs est assez différente selon les individus. Il 
peut donc être utile dans certains cas de modifier les cou- 
leurs de base (bleu et jaune). 




10 ' minmiMHiBiniimtiiiiini 


>LA 


HH 






20 '*** 


CDULMEL0 


>LB 


*** 






30 '*** 


Jean Reingot 


■LC 


**+ 






40 '*** 


Version 464.664.6128 


LD 


VU 






50 '*** 


Novembre 1987 


>LE 


♦** 






60 '*** 


DALTONIENS S ABSTENIR 


:lF 


*#* 






70 ' ***+**#»»****#***♦************* 


■LG 


**** 






80 '*** 


INITIALISATIONS 


>LH 


*#* 






90 '*#*#********************♦***#** 


>LJ 


HM 






100 CLS 




:-TF 


110 HIND0W1, 2,28,17, 24 


>RN 


120 HINDOU», 30, 39,21, 24 


>Rfl 


130 HIND0Ht3,31, 37,18, 18 


■PC 


140 t=0: 


K=0 


'■ED 


150 ENV 1,1,15,6,15,-1,8 


>qv 


160 ENV 


2,1,15,5,5,-1,10,10,-1,5 


m 


170 D1H «(2, 481, 11*12,5), 12*12,51, 


■ou 


13*12,5) 


,p*(2,5) 




180 INK 0,0:BORDER 0:PAPER 


m 


190 PRINT CHR*(22)+CHR*(1> 


-UL 


200 INK 


1,6: INK 2,2: INK 3,24 


..ijp 


210 FOR 


i=l T0 3 


>vc 


220 c»(l 


l=CHR*(15)*CHR*(l) 


MJH 



230 p*(l,i)=c*(l)+CHR*U43) 

240 p*(2,i)=c*(i>+CHR*(207) 

250 NEXT 

260 FOR 1=1 T0 2:F0R i=l T0 3 

270 ll*(i,j)=p*(i,j)tp»(i,jl 

280 12»(i,j)»U*(i,j)+ll»li,j] 

290 13*(i,j)=ll*(i,))+p*(i,i! 

300 NEXTiNEXT 

310 FOR i=l T0 2 

320 p*(i,4)=p*(l,l) 

730 p*(i,5)=p*(i,2! 

340 ll*(i,4)=ll«(i,ll 

350 U*(i,5)=ll*(i,2) 

360 12*(i,4)=12*(l,l) 

370 12*(i,5)=12*(i,2) 

380 13*(i,4)=13*(i,l) 

390 13»(i,5)=13*(i,2) 

400 NEXT 

410 GOSUB 1760:G0SUB 2930 

420 CLS:G0SUB 2860 

430 '#**#*»*****#*♦*##**********#** 

#**♦ 

440 '*«« MENU 
»#* 
450 ' *#*******#*#**#*♦*****♦******# 

460 L0CATE 4,4:PRINT"I1 faut trouve 

r les deux plaques" 

470 L0CATE 4,5:PRINT"qui en s'addit 

îonnant donneront" 

480 LOCATE 4,6:PRINT"le nodele." 



>CD 



•EC 





■>U0 T 490 LOCATE 4,9:PRINT"I1 suffit de t >FL 

>UU aper la lettre" 

>EC 500 LOCATE 4, 10:PRINT"de la plaque >NT 

>UW choisie. " 

>VZ 510 PEN 3:L0CATE 10,13:PRINT "Nivea >WT 

>x« u l Facile" 

>WA 520 LOCATE 10,14:PRINT "Niveau 

>BA Plus difficile" 

>VC 530 LOCATE 10,15:PRINT "Niveau 

>MC Assez difficile" 

>MF 540 LOCATE 10, 16: PRINT "Niveau 4 >VD 

>NN Difficile" 

>NR 550 LOCATE 10, 17:PRINT "Niveau 5 >KD 

>NT Dur" 

>NW 560 LOCATE 10, 18: PRINT "Niveau 6 >CG 

>NX Pour champions" 

>NA 570 LOCATE 10, 19:PRINT "Niveau 7 >NR 

>DK Casse-tete" 

>TJ 580 LOCATE 10,20:PRINT "Niveau 8 >TD 

>ML Super-as" 

590 PEN 2:L0CATE 12,22:PRINT "Votre >XF 
>RH choix <1 a 8> 

600 r*=INKEY*:IF r*="" THEN 600 >XF 
>RJ 610 r=VAL(r*):IF r<l OR r>8 THEN PR >YK 

INT CHR*(7):60T0 600 
>RK 620 CLS:0N r GOSUB 670,890,1110,132 >YV 

0,1540,1760,1980,2200 
>NB 430 BOSUB 2860: GOSUB 2870: GOSUB 242 >QC 

0: GOSUB 2460 
>HT MO ' IIIIIIHIIIIIIIIIIIIIIIIIIIIII >TA 

**** 
>DH I 4.50 '♦«* FIGURES NIVEAU 1 >TB 
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660 ' iinmiiiiiiiiimmmmii >TC 

670 FOR i=l T0 2 >«E 

6B0 FOR 1=1 T0 4:«(i,j)=12»(i,l):N >EE 
EXT 

690 FOR j=5 TO 8:«U, j)»12*U,2):N >EQ 
EXT 

7M FOR 1=9 TO 12:«<i,])=12»li,3): >FT 
ICXT 

710 FOR 1=13 TO !4:«ll,j)=12*<i,l) >6Y 
:NEXT 

720 FOR j«15 TO 18:f»(l,j)=12»(i,2) >66 
:NEXT 

730 FOR j=19 TO 22:«(i, ]>=12»<i,3) >6H 
:NEXT 

740 FOR J«Z3 TO 24:tt(i,j)=12»(i,l) >BD 
:NEXT 

750 FOR j=25 TO 28:($(l, j)=U$(i,l) >RN 
+ll*(i,2):NEXT 

760 FOR j=29 TO 32:«<i, j)=ll*(i,2> >RQ 
+ll»(i,3):NEXT 

770 FOR j=33 TO 36:(*(i, j)=U*(i,3) >RP 
+ll»(i,l):NEXT 

780 FOR j=37 TO J8lft(i,j)«U*<i,l) >RN 
+ll*(i,2):NEXT 

790 FOR j=39 TO Ml«(i, j)«ll*<i,2) >RR 
+ll*(i,l):NEXT 

800 FOR j«41 TO 42:f»<i, j)=ll*(i,2> >RE 
tll*(i,3):NEXT 

810 FOR 1=43 TO 44:«(i, j)=ll»(i,3> >RK 
+ll»(l,2):NEXT 

820 FOR i=45 TO 46:«<i, j)«U*(i,3) >RP 
+ll«(i,l):NEXT 

830 FOR i=47 TO 48:(»(i, j)=U*(i,l> >RV 
+ll$(i,3):NEXT 

840 NEXT >EH 

850 RETURN >ZJ 

860 '*************#****#*********** >TE 
**** 

870 •*♦» FIGURES NIVEAU 2 >TF 
*** 
880 ' immiiiiiiiiinwmiiim >TG 

HH 

890 FOR i=l TO 2:F0R j=0 TO 2 >UD 
900 A(i,l*j<4MM(itW>*llt(i,J* >CC 

2) 

910 F$(i,2+i*4>=lt*(i,j+l)+ll«<i,j+ >CE 

2) 

920 F*(i,3+]*4)=ll$(i,]+2)+llKi,i+ >CJ 

3) 

930 F$(i,4+j«4)=ll»<i,j+2>+ll*(l,i+ >CL 

31 

940 F*(i,13+j»4)=ll»(i,]+l)+ll*(i,i >DV 

+2) 

950 F$(i,14+]»4)=ll*(i,j+l)+ll«(i,j >DX 

+2) 



<> 

960 F*(l,15+]«4)=ll*<i,i+3)+ll»(i,j >DA 

+1) 

970 F*(i,16+i»4)=ll*(i,j+3)+ll«(i,j >DC 

+1) 

980 F*(i,25+j*4)=ll*(i,j+l)+ll*(i,j >DC 

+2) 

990 F$(i,26+i*4)=lU(i 1 itll+U*(i,j >DE 

+2) 

1000 F»(i,27+i«4>=ll»(i,j+l)+ll*(i, >EY 

j+3) 

1010 F*(i,2B+j«4)=ll*(i,j+l)+ll»(i, >EA 

j+3) 

1020 F«(i,37+j*4)=12Kl,j+l) >VE 

1030 F*(i,38+j»4)=12*<i,j+l) >VG 

1040 F»(i,39-tj«4l=ll»(i,j+2l+ll*(i, >EG 

j+3) 

1050 F»(i,40+]»4)=ll«(l,j+2)+ll»(i, >EZ 

j+3) 

1060 NEXT: NEXT >HF 

1070 RETURN >FB 

1080 ' nHimimnumiinnm i H >YB 

1090 '«« FIGURES NIVEAU 3 >YC 



à 



1100 'm************************** >XE 

1110 FOR i=l TO 2 >BC 

1120 FOR j=l TO 4 STEF 3:f*(i,j)=12 >KF 

»(i,2):NEXT 

1130 FOR j=5 TO 8 STEP 3:«(i,j)=12 >HP 

*(i,l):NEXT 

1140 FOR 1=9 TO 12 STEP 3l«(i,j)«l >NJ 

2*(i,3):NEXT 

1150 FOR j=2 TO 3:M(i,j)=12*U,l>: >FD 

NEXT 

1160 FOR 1=6 TO 7:f»(i,j)=I2$(i,3): >FQ 

«EXT 

1170 FOR j=10 TO ll:«(i,j)=12*(i,2 >HC 

ItNEXT 

1180 FOR jalî TO 16:M(i,j)=p*(i,2> >AR 

+ll»(i,l)+p«(i,2l:NEXT 

1190 FOR j=17 TO 20:«(i,j)=p»(i,l) >AR 

♦ll*(i,3)+p*(>,l):NEXT 

1200 FOR i=21 TO 24;f»(l,])=p»(i,3> >AK 

+ll*(i,2)+p»(i,3):NEXT 

1210 FOR i=25 TO 34 STEP 3:f*(i,])= >PY 

12*<i,l):NEXT 

1220 FOR j=26 TO 35 STEP 3:«(i,j> = >PC 

12»(i,2):NEXT 

1230 FOR j=27 TO 36 STEP 3: +*<i, J>= >PG 

12«(i,3):NEXT 

1240 FOR i=37 TO 40:«(i,i)=p*(i,l) >JE 

+p»<i,2)tp»<i,3)+p»<i,l>:NEXT 

1250 FOR 1=41 TO 44:«(i, j)=p»(l,2) >JF 

♦p»(i,3)+p*(i,l)+p«(i,2):NEXT 

1260 FOR i=45 TO 48:f*(i, j>=p*(i,3> >JR 

tp*(i,l)tp»(i,2)*p*(i,3):NEXT 



1270 NEXT >LB 

1280 RETURN >FE 

1290 ' nnimiimminiiiiiiim >YE 

**" 

1300 •« FIGURES NIVEAU 4 >X6 
»#* 

1310 ««««««M»»*»»»»»»"* >XH 
#*«♦ 

1320 FOR 1=1 TO 2;F0R j=0 TO 2 >VK 

1330 f»(i,l+l»4)=Il«(i,j+l)+p*(i,l+ >NY 

2)+p»(l, J+31 

1340 «(i,2+j«4)=ll*(i,j+l)+p*(i,j+ >NA 

2)+p*(i, j+3) 

1350 «(i,3+j+4)«13*(i,i+2)+p»(i,j+ >CL 

3) 

1360 <«(l,4+i»4)=12»(l,j+3) >UJ 

1370 -F»(i, 13+J»4)=12*(i, j+1) >V6 

1380 f»(i,14+j«4)ap»(i,J+l)+l3Mi,j >DZ 

f2) 

1390 «(i,15+j«41=p«(i,i+l)+p»(i,j+ >PF 

2)+ll»(i, j+3) 

1400 <«(i,16+j«4)=p*(l,]+l)+p»(l,i+ >PY 

2>+ll»(i,l+3) 

1410 f$<i,25+j«4)«t3$(i,j+l)+P*<i,i >DV 

♦2) 

1420 -F*<i,26+j*4)=p*<i, j+l)+ll*(i, i >PB 

+2)+p*(l,j+3) 

1430 «(i,27+l«4>=p$(i,l+l)+ll*U,j >PD 

+2)+pt(i, j+3) 

1440 M(i,28+j*4l=p»<i,j+2)+13»(i,i >DD 

+3) 

1450 M(i,37+j»4)=p»(i,j+l)+13»li,j >DC 

+2) 

1460 f*(l,38+j*4)=p»(l,l+2)+ll»(i,j >PK 

+3)+p*(i, j+2) 

1470 »<i,3ftJ«4)«p$(i,j+2)+ll*(i,j >Ftl 

♦3)+p«(i,j+2) 

1480 f$(i,40+j»4l=13»(l,i+2)+p$li,j >DZ 

+1) 

1490 NEXT:NEXT >LC 

1500 RETURN >EK 

1510 '♦#♦*****«♦»**+*++**♦+*♦*+**** >XK 

1520 t« FIGURES NIVEAU 5 >YA 

*** 
1530 ' imiiimimiiiinnmnn >YB 

**** 

1540 FOR i=l TO 2:F0R j=0 TO 2 >VP 

1550 ■f*(t,l+j*4)=ll*(l, j+l)+p*(i, J+ >NC 

2)+p*(i, j+3) 

1560 **(i,2+j*4)=p*(l, j+l)+ll«(i, j+ >NE 

2)+p*U, j+3) 

1570 f$(i,3+i*4)=p*(i,i+ll+ll«(i,j+ >N6 

2)+p»(i,i+3) 

1580 f»(i,4+j*4)=p*(i,j+l)+p*(i,j+2 >NJ 

l+ll«(i,j+3) 

1590 f«(l,13+]«4)=12*(i,j+l) >VL 
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1600 f*(i,14+j*4l=p»(i, j+l)+13*(l, ] 

+2) 

1610 f»<i, 15+j*4)=13*(i, j+2)+p*(i, j >DY 

+3) 

1620 ■f*(î,16+j*4)=12*(i, j+3) >VK 

1630 f*(i,25+j»4)=ll«(i,j+l)+p»(i,j >PD 

*2)+P*(i,j+3) 

1640 f*(i,26+j*4)=p*(i, j+H+ll$(i,i >PF 

+2>+p*(i, j+3) 

1650 f$(i,27+j»4)=ll*<i,j+2)+ll$(i, >EL 

i+3) 

1660 f»(i,28+j*4)=l3«(i,j+3)+p$(i,j >DG 

+1) 

1670 tt(i,37+j»4)=p*(i,j+l>+ll»U,j >PL 

+2)+p*(i, j+3) 

1680 f*(i,38+j»4)=ll*(i, j+2)+ll*(i, >ER 

j+3) 

1690 f$(i,39+j*4)=p»(i,3+2)+U*li, j >PQ 

*3!+p*ii,j+l) 

1700 f$(i,40+j*4)=p*(i, j+2)+p*(i, j+ >PY 

3)+ll»(i, j+1) 

1710 NEXTiNEXT >HH 

1720 RETURN >FD 

1730 ' muimiitmmnuiHiiii >YD 

1740 '«t FI6URES NIVEAU 6 >YE 
H« 
1750 #*♦*+*****♦**+*********»***** >YF 

♦#♦* 

1760 FOR 1=1 T0 2:FDR j«0 T0 2 >VU 

1770 f»(i,l+j«4)=ll»(i,J+l)*ll*li,j >D7 

+2) 

1780 f*(i,2+j*4î=p*(i, j+2) +p* ( l , j+1 >YK 

>+p»(l,j+3)+p*(i,j+2) 

1790 f*li,3+j*4)=ll«<i,j+2)+ll»tl,j >DZ 

+31 

1800 f»(i,4+j*4)=pSli,j+2)+ll»(i,j+ >ND 

3)+p*(i,j+ll 

1810 «(l,13+j«4)=p»(l,j+l)+p*(i,l+ >PA 

2>+ll»(i,j+3) 

1820 M(i,14+j*4)=p*(i,j+l>+ll*(i,j >PC 

+2l+p*(i,j+3) 

1830 f»(i,15tj»4)=+ll$(i,j+l)+p*(i, >» 

j+2)+p*(i,j+3) 

1840 «ll,16+j*4)=p*(l,j+2)+p*(!,j+ >P6 

ll+ll«(i,J+3) 

1850 f$(i,25+j*4>=p*(i, j+l)+13*(i, j >DD 

+2) 

1860 «<l,26+j»4l=ll*(i,)+l)+p«(i,j >PK 

+2>+p«(i, j+3) 

1870 f»(i,27+j»4)=p$(i,j+l)+p»(i,j+ >PM 

2)+ll*(i,j+3) 

1880 f»(i,2B+j«4)=13*<l,j+2)+p*(i,j >DH 

+3) 

1890 f»(i,37+j*4)=13»(i,j+l)+p*(i,i >DL 

+2) 

1900 f*(i,38+j«4)=p»(i, j+2)+p*(i, j+ >P8 



LB 
>FH 







l)+ll*(i,j+2) 

1910 t"»(i,39+j«4)=ll«(i,j+2)+p*(i,j >PL 

+3>+p*(i, j+2) 

1920 f»(i,40+j«4)=p*(l,j+2)+13*li,j >DA 

+3) 

1930 NEXT:NEXT 

1940 RETURN 

1950 ' #*♦****♦**♦****♦**♦*****»**** >YH 

1960 'm FIGURES NIVEAU 7 >YJ 
*** 
1970 '##»*******»♦♦*+****#♦*«♦**+*# >YK 

+**♦ 

1980 FOR i=l T0 2:F0R 1=0 T0 2 >VY 

1990 f»(i,l+j*4)=p»(i,j+l)+p*<i,j+2 >YL 

l+p$(i,j+l)+p»(i,j+3) 

2000 f»(i,2+j»4)=p*(i,j+2)+p$(l,j+l >YU 

)+P*(i,j+3)+p*(i,j+l) 

2010 <$(i,3+j»4)=p*(i,j+l)+p*(i,j+2 >YW 

) +p» ( i , j+1 ) +p* C i , j+3) 

2020 f«(l,4+j+4)=p$(i,j+2)+p*!l,j+l >YY 

)+p*(i, j+3)+p*(i, j+1) 

2030 f»(i,13+i«4)=p»<i,j+l)+p*U,j+ >ZE 

3)+p»(i,j+l)+p*(i,j+2) 

2040 f»(l,14+j*4)=p*(i,j+3)+p«(i,j* >2S 

l)+p*(l,j+2)+p$(i,j+l) 

2050 <»(i,15+j»4)=p»(i,j+l)+p*(l,j+ >ZJ 

3)+p*(i,j+l)+p*(i,j+2) 

2060 f*(i,16+j*4)=p*(i,j+3)+p$(i,l+ )ZL 

l)+p»<i,j+2)+p»(i,j+l) 

2070 «(l,25+j*4)=p*(l,j+t)+p»(l,J+ >ZL 

2)+p«(l,j+l)+pVi,j+2) 

2080 f»(l,26+j«4)=p»(i,j+2)+p*(i,j+ >ZN 

l)+p$(i, j+2)+f$(i, j+ï) 

2090 f*(i,27+j»4)=p$(i,j+l)+p*(i,j+ >ZT 

3)+p*(i,j+l)+p*(i,j+3) 

2100 «(i,28+j*4)=p*(i,j+3)+pt(i,j+ >ZK 

l)+p»(i,j+3)+p$(i,j+l) 

2110 <*(i,37+j*4)=p$(i,j+l)+p$(i,j+ >ZL 

3) +p* ( i , j+1 ) +p* ( i , j+3) 

2120 «(i,38+j»4)=p*(i,j+3)+p«(i,j+ >ZN 

l)+p*(i,l+3)+p*(i,j+l) 

2130 f»(i,39+j*4)=p«U,i+l)+p«<l,j+ >ZN 

2)+pi(i,j+l)+p«(i,j+2) 

2140 f*(i,40+j*4l=p*(l,j+2)+p$(i,j+ >ZF 

l)+p*(i, j+2)+p*(i, j+1) 

2150 NEXT:NEXT >H6 

2160 RETURN >FC 

2170 ' immmilii i iiiHiiHiilil >YC 

»**♦ 

2180 '»«♦ FIGURES NIVEAU 8 >YD 

**♦ 

2190 '«»»*♦♦»»«**»»«««»»*»»*»« >YE 
**♦* 

2200 FOR i=l T0 2:F0R j=0 T0 2 >VH 
2210 tt<i,l+ji4)=p*(i,j+l)+p*(i,j+3 >YH 

l+P»(i,j+l)+p*(i,j+2) 



2220 f»(l,2+j+4)=p»(i,j+2)+p»(i,j+l >YZ 
)+p*(i,j+2)+p*(i,j+3) 
2230 f*<i,3+j»4)=p*(i, j+3)+p*(i , j+2 >YC 
)+p»(i,j+3)+p*(i,j+l) 
2240 <»(i,4+J*4)=p»(l,J+l)+p«(i,j+3 >YE 
)+P»li,j+2)+p*(i,j+3) 
2250 f * < i , 13+ j*4) «p» (i , j+1 ) +p« ( i, j+ >ZJ 
2)+p$(i,j+ll+p*(i,j+3) 
2260 «(i,14+j»4)=p*(l,j+2)+p«(i,j+ >Z« 
3)+p$(l,j+2)+p»(i,j+l) 
2270 f*(i,15+j»4)=p«(i,j+3)+p*(l,j+ >ZQ 
ll+p$(i,j+3)+p«(l,j+2l 
2280 «(l,16+j»4)=p*(i,j+l)+p»(i,]+ >Zfl 
3)+p»(l,j+2)+p«(i,j+l) 
2290 **(l,25+J»4)=p*(i,J+3l+p»(i,j+ >ZR 
ll+p*(i,j+2)+p*(l,j+l) 
2300 f»(i,26+j+4)=p»(l,J+ll+p«(i,j+ >ZK 
2)+p»(i,]+3)+p$(i,j+2) 
2310 f*(l,27+j»4l=p*(l,J+3)+p*(l,J+ >ZN 
l)+p»(i,j+2)*p*(i,j+3) 
2320 fi(l,2B+j«4>=p*ll,j+2)+p*(l,]+ >ZP 
3)+p$(i,j+l)+p»(i,j+2) 
2330 «<i,37+j»4)=p$(i,j+3)+p*(i,l+ >ZQ 
2l+p$(l,j+l)+p*(i,j+2) 
2340 f*(i,38+j«4)=p«(i, j+2)+p*li, j+ >ZT 
1 ) +p* < i , j+2) +p* ( i , j+3) 
2350 M(i,39+j«4)=p«(i,j+3)+p*(i,j+ >ZW 
2)+p*(i, j+3)+p*(l, j+1) 
2360 f*(i,40+j*4)=p»«i, j+l)+p*(i, j+ >ZH 
3) +p* ( i , j+1 ) +p» < i , j+3) 
2370 NEXTiNEXT >LA 

2380 RETURN >FG 

2390 ' UHIDIIimillllHII I IHH I >YG 
**** 

2400 'M* AFFICHAGE FIGURES >XJ 
*** 
2410 '***♦***************#+****+*** >XK 

2420 BORDER 10+r:F0R i=0 TQ 5:F0R j >CH 
=1 TO 4:LÛCATE 4+l»6,l+j:PRINT «H 
,j+i«4):PEN 1:L0CATE 3+i«6,4:PRINT 
CHR»(65+il:L0CATE 3+l*6,5:PRINT CHR 
*(243):NEXT:SOUND 1, 120-1*5, 10, 15,1 
:NEXT 

2430 FOR 1=0 TO 5:F0R j=l TO 4:L0CA >KL 
TE 4+i*6,6+j:PRlNT f»(l, (j+i«4)+24> 
:PEN liLOCATE 3+i*6,9:PRINT CHR»(71 
+i):L0CATE 3+i*6,10:PRINT CHR$(243) 
:NEXT:SOtKD l,75-i«5,10,15,l:l€XT 
2440 PAPERI3,3;PEN«3,2:CLS#3 >W> 

2450 RETURN >FE 

2460 LOCATE 4,14:PRINT"N0DELE >VX 

VOTRE DESSIN" 

2470 PEN 2:10CATE 30,15:PRINT "Nlve >LT 
au:"ir 
2480 L0CATE*2,l,l:PRINTt2, "Score: >FH 
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2490 L0CATE#2,l,3:PRINTt2, n Sur: >ED 

2500 IF t=5 THEN t=0:sc=0: SOUND 1,6 >EV 
0,20, 15,1: SOUND 1,47,20, 15, 1:S0UND 
1, 40,30,15, 1:F0R tt=0 TO 500:NEXT:6 
OTO 420 
2510 imilllllilliliilillllililii >YA 

***** 

2520 '*»» AFFICHEE MODELE >YB 

»** 
2530 'H**»*»»**»*******»*********» >¥C 
***** 

2540 Hl=INT(RND*12)tl >FK 

2550 t=t+l:RANDOMZE TIME >VX 

2560 H2=INT(RND*12)+1:IF H2=H1 THEN >6B 
2560 

2570 PRINT»1, CHFt*l22)+CHR»U> >XZ 

2580 FOR 1=1 TO 4:L0CATEU,4,i:PRIN >VP 
Tll,«(l,(hl*4)-4*i):LKATEtl,4,i:P 
RINTtl,«(2, (h2*4)-4+i):NEXT:S0UND 
1,63,40,15,1 

2590 ' iniin i mnminiiiiiiim >¥J 
***** 
2600 m REPONSE ET AFFICHABE >YA 

*** 
2610 l ll l l llll i millll»"'""" .>YB 
***** 

2620 FOR i=l TO 2 >BK 

2630 rS(i)=INKEY*:IF r«(l)=" - THEN >EH 
2630 

2640 R*(I)=UPPER*(R»(I)> >TU 

2650 IF r*(i)<"A" OR r*(i)>"L" THE >A6 
N PRINT CHR$(7):S0TO 2630 
2660 GOSUB 2890 >YF 

2670 PEN*l,2:L0CATE#l,18,i*2:PRINT# >LF 
l,r»(i) 

2680 NEXT >LH 

2690 L0CATE»1,6,7:PRINT»1, "Confire >PQ 
2 0/N" 

2700 r$=INKEY$: IF r*="" THEN 2700 >ZQ 
2710 r«=UPPER»(r«):IF r«="0" THEN 2 >DH 
750 

2720 PRINT CHR$(22)+CHR*(0) >VG 
2730 IF r»="N" THEN SOUND 1,200,120 >E0 
,15,1:PEN»1,0:FOR i=l TO 2:L0CATE»1 
,lB,i*2:PRINT»l,CHR$(143):NEXT:L0CA 
TE#1,6,7:PR1NTI1,STRING*(13,143):G0 
TO 2620 
2740 PEN#1,2:PRINT CHR*(22)+CHR*(1) >CT 

2750 al=ASC(r»(l)>-64:a2=ASC(r«(2>> >EN 

-64 

2760 FOR i=l TO 4:L0CATE«l,20,i:PRI >QH 

NTI1 , M ( 1 , (al*4) -4+i ) : LCCATEH1 , 20, i 

:PRINTI1 , « (2, (a2»4) -4+i ) : NEXT 

2770 L0CATEI2,7,3:PRINT#2,t >NZ 

2780 PR1NT#1,CHR*(22>+CHR«(0> >XJ 



2790 IF (al=hl AND a2=n2)0R(a2=hl A >LC 

ND al=h2) THEN 2800 ELSE GOTO 2810 

2800 SOUND 1,90,20,15,1:301» 1,60, >XP 

15,15,l:LOCATE #3,2, 1:PRINTI3,"JUST 

E" : sc=sc+l : L0CATEt2, 7, 1 :PRINT»2, se : 

L0CATE»1, 2, 7:PRINT»1, "Appuyez sur 1 

a udi"r6";CALi- lraiofCESll'CLS9jiBuT 

2500 

2810 60SUB 2880 >YB 

2820 SOUND 1,400, 40,15,, ,7:L0CATE » >PB 

3,2,l:PRINT#3,"FauK":PEN»l,3:L0CATE 

tl,2,2:PRINT»l,CHR$(64+hl):LXATE»l 

,2,4:PRINT#t,CHR«(64+h2>:PENtl,l:L0 

CATE#1,2,7:PRINT*1, "Appuyez sur la 

barre" : CALL fcBBIB: CLSH1 : aS»3: GOTO 

2500 

2830 '**#*********************»**** >YF 

2840 '*** DESSIN CADRES >YG 

*+♦ 
2850 '»*****#**»******************* >YH 
»#** 

2860 PLOT 0,0,1:DRAN 639,0:DRAtt 639 >UQ 
,399:DRAN 0,399:DRAN 0,0:PLOT 2,2:D 
RAW 637,2:DRAN 637,397:DR6M 2,397:D 
RAi 2,2:RETURN 

2B70 PLOT 0,220: DRAW 639, 220: PLOT >EL 
,222:DRAN 639,222:RETURN 
2880 PLOT 30,78,3:DRAW 50,7B:DRAN 5 >TP 
0,130:DRAN 30,130:DRAW 30,78:RETURN 

2890 PLOT 286,78,3:DRAN 306,78:DRA« >AC 

306,130:DRAN 286,130:DRAN 286,78îR 
ETURN 

2900 '******#*****#**************** >YD 

PRESENTATION >YE 



' ***************************** >YF 



2910 
*** 
2920 

2930 FOR i=l TO 37 STEP 4 >QE 

2940 FOR J=l TO 24 STEP 1 >QZ 

2950 LOCATE i,j:PRINT «<l,j HOD 12 >ED 

+11 

2960 SOUND 1, INT(RND»B)*5+60,5,10,1 >CZ 

2970 NEXT: NEXT >L6 

2980 FOR i=l TO 37 STEP 4 >RB 

2990 FOR j=l TO 24 STEP 1 >QE 

3000 LOCATE i,]:PRINT **(2,j+12) >ZY 

3010 NEXT:INK 1,INT(RND*25)*1:INK 2 >Bd 

,INTIRND*25)tl:INK 3,INT(RND*25)+1: 

SOUND l,INT(RND*8)+5+120,5,15,l:NEX 

T 

3020 g«(l)="1110111010101OO0U11101 >KJ 

1101000111" 

3030 n» (21 =" 10001010101010001010101 
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0001000101" 

3O40 q«(3)="10001010101010001010101 >KF 

îooioooior 

3050 q$(4l="10001010101010001010101 >KS 

0001000101" 

3060 <)• (5) ="11 101 1 101 1 101 1 101010101 >KN 

1101110111" 

3070 INK 0,0:1»! 1,5: INK 2,20: INK 3 >DG 
,15 

3080 FOR 1=1 TO 5:F0R ]=1 Tû 33: IF >RC 
HID*(q*(i> , j,l)="l" THEN PEN 0:LOCA 
TE 3*j,10+i:PRINT CHR$( 143): SOUND 1 
,400,5,15,2:S0UND 1,0,10,0,0 
3090 NEXT: NEXT >LA 

3100 FOR 1=1 TO 30: INK 1,INT(RN0*26 >JC 
):INK 2,INT(RND*26):INK 3,INT(RND*2 
5>:S0UND 1,800,5, 15, Il SOUND 1,0,10, 
15:NEXT 

3110 INK 0,0: INK 1,6: INK 2, 11: INK 3 >DC 
,24 

3120 LOCATE 7,20:PRINT "JEU DES «EL >AH 
ANGES DE COULEURS" 

3130 FOR tt=0 TO 5000:NEXT >UE 
3140 '***************************** >YA 
**** 

3150 '*** EXPLICATIONS >YB 
*** 
3160 '***#**#**#******************* >YC 
**** 

3170 CLS:BORDER 13:PEN 1:G0SUB 2860 >HE 
:LOCATE 2,3:PRINT"Les couleurs se n 
elangent:" 

3180 p»(l,4)=p»(l,l):p»(2,4)=p«(2,l >BK 
) 

3190 FOR k=0 TO 2:F0R 1=1 TO 4:F0R >BR 
j=l TO 4:L0CATE 5+i,5+j+k*6:PRINT p 
$(l,k+l):NEXT:NEXT:NEXT 
3200 FOR k=0 TO 2:F0R i=l TO 4:F0R >DL 
j=l TO 4:LXATE 13*l,5+j+k*6:PRINT 
pt(l,k+2 ):NEXT:NEXT:NEXT 
3210 FOR k=0 TO 2:F0R i=l TO 4:F0R >TK 
j=l TO 4:L0CATE 2Hi,5*j+k*6:PRINT 
p*(l,k+l ):LOCATE 21*i,5+j*k*6:PRIN 
T p»(2,k*2):NEXT:NEXT:NEXT 
3220 FOR 1=0 TO 2:L0CATE ll,7+i*6:P >QX 
RINT -+":NEXT 

3230 FOR i=0 TO 2:L0CATE 19,7+i»6:P>QB 
RINT "=":NEXT 

3240 PEN 2:L0CATE 27,6:PRINT"rouge+ >WQ 
bleu=":LOCATE 31,8:PRINT"violet":L0 
CATE 27,12:PRINT"bleu+jaune=":L0CAT 
E 31,14:PRINT"vert":L0CATE 27,1B:PR 
INT" jaune*rouge=" :L0CATE 31 , 20: PRIN 
T"orange" 

3250 LOCATE 2,23:PRINT "Appuyez sur >AT 
une touche" 

3260 CALL «BB18:CLS:RETURN >WX# 
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par abonnement. 
Présentation de jeux 
et nouveautés sur Amstrad . 
Tous les mois un concours i 




CPC 

Mensuel informatique 
dédié aux ordinateurs 
Amstrad 



MEGAHERTZ 
MAGAZINE 




Mensuel de 

communication amateur 
actualités, informatique 
technique. 




VIVEZ LA MICRO EN FAMILLE 
Toutes nos revues 
sont vendues en kiosque. 



ARCADES 

Mensuel Informatique et 
communication vendu en 
kiosque et par 
abonnement. 
Présentation de jeux, 
nouveautés, sur toutes 
machines, consoles de 
jeux et minitel. Concours 
mensuel permanent. 



CPCHS 

Numéro hors-série 
comprenant uniquement 
des listings sur Amstrad. 
Paraît tous les deux mois. 



PCOMPATIBLES 
MAGAZINE 

Mensuel informatique 
consacré aux ordinateurs 
compatibles. Actualité, 
technique, listing. 



ASTROLOGIE 
PRATIQUE 



Mensuel d'astrologie (et 
non de voyance). Outre 
l'information, les thèmes 
développés touchent à 
la pratique sérieuse de 
l'astrologie. 



Si vous souhaitez recevoir un exemplaire de presse, envoyez 20 F en timbre ou chèque à : 
Editions SORACOM - La Haie de Pan - 35 1 70 BRUZ 



